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Preface 


In this monograph we study the properties of solutions of the Navier-Stokes 
(N-S) partial differential equations (PDE) on (x, y, z,t) € R* x (0,7). Initially we 
convert the PDE to a system of integral equations (IE). We then describe spaces A 
of analytic functions that house solutions of this equation, and we show that these 
spaces of analytic functions are dense in the spaces S of rapidly decreasing and 
infinitely differentiable functions. These spaces are defined more explicitly later in 
this monograph. Some reasons for doing this are the following: 


1. The functions of S are nearly always conceptual rather than explicit, i.e., 
relatively few such explicit functions are known, and except in concept, they 
differ from functions of calculus, which are generally analytic. 

2. Initial and boundary conditions of solutions of PDE are usually given by 
scientists of applications, and as such, they are nearly always piecewise analytic, 
and in this case the solutions have the same properties. 

3. When methods of approximation are applied to functions of A, they converge at 
an exponential rate, whereas methods of approximation applied to the functions 
of S converge only at a polynomial rate. 

4. The space A also provides other conveniences, such as enabling sharper bounds 
on the solution, enabling easier existence proofs, and enabling a more accurate 
and more efficient method of solution including accurate error bounds—all of 
which are included in this monograph. 


Following our proofs of denseness, we prove the existence of a solution of the IE in 
the space of functions A N R? x (0, 7), and we provide an explicit novel algorithm 
based on Sinc approximation and Picard-like iteration for computing the solution. 

We also provide an explicit Mathematica program for computing the solution 
based on our approximation procedure, given the initial divergence-free velocity, 
and we provide explicit illustrations of our computed solution. 

More specifically, the problem which we shall analyze and solve numerically in 
this monograph is the PDE problem as described by Fefferman [1] for the space S, 
ie., 
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dul 5. ou Op : 
Gp ae ay (r,) €R?x Ry. (1) 


This problem is to be solved subject to the divergence-free condition 
Sui 
divu = =90, (DER xR, 2 
= 20 oy = (7.1) + (2) 


and subject to initial conditions 


w(7) =uG,0) re R?. (3) 
Here, u = (u',u’,u*) denotes a velocity vector of flow, p denotes the pressure, 
u? = (u°',u°?, u°) is a given divergence-free velocity field on R?, ¢ is a positive 
3 
re 02 
coefficient (the viscosity), and A denotes the Laplacian, A = 
( y), P Day (axi)2” 


This monograph deals mainly with the solution of the Sc PDE using its 
corresponding integral equation formulation, due to recent developments enabling 
much more efficient and much more rapidly convergent solutions, making it possible 
for us to obtain solutions over infinite domains [2]. We thus first derive the following 
integral equation (IE), which can be written in the operator form 


u=v+Nu, (4) 


where the terms on the right-hand side are defined as follows: 
v(F,t) = i g(r —7', 1) u'(7) dr’ 
R3 


Nu(?,1) = / th {((V'A) = w.1)) 0,2) 
+(V'Y) pl ,t)} a dt. (5) 


In (5) V’ indicates the gradient taken with respect to 7’, and we have written Y for 
G(r—-Fr,t—1f). 

According to [1], the initial condition u® must belong to a class of functions 
S? which are infinitely differentiable with respect to all variables and which are 
rapidly decreasing with respect to each spacial variable on the real line. This class 
is described in more detail in Sect. 1.2 below. We also introduce in Chap. 2 a class 
of analytic functions A which is a subclass of S, which we prove to be dense in the 
class S, and to which the solutions of (4) belong to whenever u° € A. 

After proving the denseness of the class A in S, we prove in Chap. 3 that the 
integral part of the above IE maps functions of A back into A; in Chap. 4 we prove 
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that if the initial condition vector u° belongs to A and is divergence-free, then the 
above (IE) has a solution in A for all T sufficiently small; in Chap. 5 we introduce 
an iterative method of solution of the IE; and in Chap. 6 we provide two explicit 
examples and its numerical solution. Appendix A provides a detailed step-by-step 
description of our method of solution including an explicit Mathematica program 
based on our explicit algorithmic procedure. Appendix B contains for demonstration 
purposes an explicit example of a result data file generated by our algorithm. 


Salt Lake City, UT, USA Frank Stenger 
Salt Lake City, UT, USA Don Tucker 
Cairo, Egypt Gerd Baumann 


September 19, 2016 


References 


1. C. Fefferman, Existence and smoothness of the Navier-Stokes equation. Clay Mathematics 
Institute (2000), http://www.claymath.orgVmillenniumV 

2. F. Stenger, Handbook of Sinc Numerical Methods. A 470-page Tutorial & Matlab Package (CRC 
Press, Boca Raton, 2011) 


Contents 


PCT BCG os 5.508 05 of ngsticasna tan kacmeinedaphataes ane teiag ehees de eweeet oapetan tie: 
1 Introduction, PDE, and IE Formulations ...........................0eee es 
1.1 Introduction: The PDE Problem .................... cece eee cece ee eee 
V2 The Clashes SB Reese itec nt chess eectdas eee. icaet eeseeee ees Pesan 
13 The Corresponding IE Probleme < ccc scscscvescnasevs er esenesesscenvees 
22 The Pressuve  sincadicisn adivivadeeidosn iacioein deus belwceis bedeeeis bes 
D> Pyle yan 0 We ain h cees ens te tiedieie Sakae aseuaaneeemeertecen eens 
1.6 The Theoretical Iteration Scheme .................. cece eee cece eee eee 
1.6.1 Von Neumann Iteration .......... 00... cece cess seen eee e eee ee ee 

16.2 Gauss—Seidel Weratiom «0.000. 6025 bess coas ecae ects acne ceee ces 
DTIC Go ex carat aw sense Hieicraresa Wt alecnlereie Mieceiecci erase oe Siecle ass Decdiaicletase ameleratercam eters 
Spaces of Analytic Functions ............... 00... scceeeeee ee eneeeeenee eens 
2.1 The Spaces Ab amd AQ gy cccececececeeeeeesenenenteseeeeneseeneneees 
2.2 DengenessOf AG Ii BS"... .ccscccssaestsiesecceeres tase eoeniassenns bee 
pera Denseness of Sinc Approximation in 8” .................06. 

2.2.2 Denseness of the Space Aj, in S? ......cc cece cence cece eens 

TRE PereHiOeS fac cc heehee ded ioeedereeniee ened chunnmonghionaipa pes nauenuesien 
Spaces of Solution of the N-S Equations ........................eeeee eee 
Bul. MACH SPACER 25.5150. te auiated menieedcgaseea, Cove eas diag ete dees eeh 
VME Re oe Sy ee ere 
aa  ThevOperatwar (gw: co.cc) ssid cepts iie cd iis 
SA. The Operdinan p= tag. & 2. ices engieheie ces ceneusaeeewsiateces ess» 
ao. “Ue porary ooc2 nests cotheeoes ese ieee Pa as eeecs ees bes 
3:6 Bilinear Forms for NW... .c....ccecseseeceeiscsaees sees aces ieee seeesss 
36:1 The Operatic p(W, W) cies esis cis ccid bess cid aces ces ies 

36.2 “Whe Operation qi W).. oi. cncccnscseeccnecsae sens cet scenes 


< 


OO ANDANKNNK KE 


x Contents 


4 Proof of Convergence of Iteration (1.25) ....................c cece eee eeees 33 
4.1 ‘Conivaction Mappiae Principle:. ........ cscsisscedcensss vsceescee dense 33 

5 Numerical Methods for Solving N-S Equations .......................... 37 
5.1 Approximating Bases: .oc..ci. con. sen gene se awe hes sneteenesseesemeges 37 
5.1.1 Bases for Solving N-S Equations ........................06. 37 

5.2 Approximation Operations on Bases ............... 0.0 :eeee esse eee ees 38 
52k DET Approximation: : 05.265 ccc05s2sseies deseeese esa sesencns 38 

D2.  Undehinne INeOraiGn ...0 ic doses sented comenmesvweonue pes 40 

Diabcad DE CROMAUIONE ie ics ini c.cie dine nina 0s Saecenee dae Gabe tases Ue 41 

5.2.4 Hidehante Conmvoniion cs ccssencinnteseoieecesebimadacenes 41 

5.3 Approximating the N-S Equations ................. ccc. eee ee eee ee eee 45 

ae | WHE VOCHOE Viiv ded iacecatecdeweoni sh teenanhigeeenassoneenaone 46 

5.3.2. The Approximation of Pu + QU..............ce eee e eee ee ee 47 

54. A More Detailed Aleorthin. 0.25 ccec seis ccs edesieecedbeetoondenes 48 
BCG aces. ccias sa ctadad aaies poinian nae notehmecstarmwmanintauaandaemweserane ded 51 

6 Sinc Convolution Examples .................. 0... eece ee eee eee eee een ee eenes 53 
1 “UNO OIGT ai cc sie kei eennsheibeeieletsteeaeedenauateermeateecensees 53 

62 Example |: Gapssian Multiplet’..cc.c.c. cccccs sees eede env ees eo sees 56 
6.3 Example 2: Hyperbole Multiplier :....05.0ccc. sce esaces cue sessseteees 72 
Gh UNUM. Ss oS tw Ps cin ass ed Gee eed be eed 2S 77 
Rete S iis cas aechaws sa esa maveaeeNiennceevoumvauneNukvseus beshanteneeeen® 77 

A Implementation Notes .................. cece cece ee eee eee ne eee naeeeenaeeennas 719 
Al Punetvem Demin ose csciecete cactacca ceed Soha ccis Ge leccts cede ccaa ces 79 
AA| Selection of Initial Wales... 0. c.0sc:0disesesvocvesesedes ese 80 

Als?  Preseuré Potential © veccssc cece epics Seo bdeseheees ee hes 82 

Pilid “TRONS ons ce cased seiese vere betagend iadeache teneoungees 84 

AAA Spatial Discretizaton 6.50 0200605 is sci bess och ens eee 85 

AAS . Step Lengths Distribution .....05.00s020s cress voces se seveses 88 

AclG@  Diserete Pourter Transidrim ... ....s20.¢ assess naces edavees 88 

A.l.7 Spatial Temporal Convolution ..............05c0c0essseseees 92 

Pile SiN PUWCHOne cede bei eekd chads Seieecks cede cei oes 96 

Fl St omarnial WAS cin usb gine Vag chedeoeistvoesee eae dewesee 99 

Aol Wasts PMNCtons. ois cesieess cee soeacscceiodeessecer eee sdes 103 

Pell Laplace Trees tO 205d esess Sdsssccecevesane dere temegens eee 107 

A.1.12 Free Space Green’s Function for Poisson’s Equation ...... 108 

Acl.13 Convolution Iniesraly oc... can scavesenssavsceuss ess eens 110 

A.1.14 Splitted Convolution Integrals ................. cc. eee eee 120 

ALLIS Navier-Stokes PUMCUON .2.0. 65.c6sccccees ceseseesenseeveees 129 

Alt Tovport Puen 2 oii.aecec eh etecets Sie ccis cede cake oes 144 

BS REGIE NGG aces. cc sso wine iceincsie disso erp de dese mheme sin gebnnwsndesembemmanee 147 
Bl Example Pile oF Resulis.co.cc scabs te ecceiaue sag cen deta dese vee eeee des 147 
POP sec dicca sedig oi: diboc a -ecann sscsevanancnangetnnmratanqneigcausamrarangre gttve hatorene grains otbngreigieie’s ntblovelaneleie 219 


Chapter 1 
Introduction, PDE, and IE Formulations 


Abstract In this chapter we first state the Navier-Stokes (N-S) problem as a system 
of nonlinear partial differential equations (PDE) along with initial conditions. We 
then convert this system of PDE to a system of integral equations (IE). 


1.1. Introduction: The PDE Problem 


The partial differential equation (PDE) problem which we shall consider is the 
following, as presented in [1], ie., let R = (—oo, co) denote the real line, let T 
denote a positive number, and let the velocity vector u = u(7,f) = (u', uw’, u3) 
satisfy the Navier-Stokes (N-S) PDE problem 


Lae, ee pee owe (7,1) € R? x [0,7]. (1.1) 
ot OxR = OX; 


This problem is to be solved subject to the divergence-free condition! 


3 . 
divu ae 0, (Ft) €R*x [0,7], (1.2) 


and subject to initial conditions 


w(7) =u(7,0) FER’. (1.3) 
Here, p denotes the pressure, u? = (u®!,u°?,u°%) is a given divergence-free 
velocity field on R*, & is a positive coefficient (the viscosity), A denotes the 


3 2 


Laplacian, A = ry (ax” and p denotes the pressure. 


'Fefferman actually had [0, 00) instead of [0, T]. We shall however consider only the case of [0, T] 
in this monograph. 
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2 1 Introduction, PDE, and IE Formulations 
1.2. The Classes S” and S;, 


Let n denote a positive integer, and let S” denote the family of all infinitely 
differentiable functions g = g(r) defined on R” such that 


|%9(7)| < Cun (1 + |7|)~* 7 eR", for any constants a and K, (1.4) 


for some constant Cy,x is a constant and similarly, let Sj denote the family of all 
functions g = g(7,t) defined on R” x [0, T], such that for any constants a, K and 
any integer m => 0, 


|ae a” e(7)| < Cum« (1+ |7))*, FER", (1.5) 


for some constant Cg mn.x- 


1.3 The Corresponding IE Problem 


Let us denote by Y = (7, t), the well-known Green’s function of the heat equation 
on R? x R;, where Ry = [0, 00), 


- 1 a 7 
Gir, t) = (4n emp? exp (-Z) 5 f= Ir|. (1.6) 


This Green’s function is the bounded solution to the following initial value problem 
on R? x Ry: 


Gr,t) -—e AG(F, t) = 8(t) 57), 
(1.7) 
G(7,0+) = 0, 


where 6(f) and 5°) denote the one- and three-dimensional delta functions, where 
R = (—oo, 00) and where Rt = (0, 00). 

It is straightforward to use this Green’s function Y to transform the system (1.1) 
of three PDE into the following system of three integral equations (IE), for j = 
152.3; 


ui(F,t) = [ G(r —7', thu! (7) dF’ 
(1.8) 


3 


; 
-{ G(iF—7,t—-1) je gs OP anger 
0 JR? k=1 Ox; ax; 


1.3. The Corresponding IE Problem 3 


We omit the trivial proof of the following lemma. 


Lemma 1.3.1. If g € S3, and if y is defined by either of the integrals 


rt) =f G(r—F¥’,t)e(7,tdr, 
R3 


(1.9) 

t 

y(t) = / / G(r —7,t—1) g(7,1) dr dt, 
0 JR 
in which t € (0,T), then y € S}. Moreover, we have for j = 1, 2, 3, that 
Yx(7,0) = if G,,(7F — 7,1) (7, t) dr’ 
R3 
= -f Gi (7-7, (r,t) dr (1.10) 
RB? 


II 


i G(r —7',they(r,t)dr. 
R3 : 


Furthermore, the functions yx, of (1.10) also belong to S3. 


Lemma 1.3.1 enables differing IE expressions for the same system (1.8). 


Next, in Theorem 1.3.1 which follows, we present an IE system which is equivalent 
to the one in (1.8), and with which we shall work within the remainder of this 
monograph. 


Theorem 1.3.1. If each component of u belongs to S3, and if u is divergence-free, 
then the system of differential equations (1.3) is equivalent to the integral equation 
formulation 


u=v+Nu, (1.11) 
where the terms on the right-hand side are defined as follows: 
v(F,t) = i g(r —7', t) u(r) dr’ 
R3 


Nu(?,1) = [ a {((V’Y) « u(,7)) u.7) + a) 


(VY) p(r,t)} di dr. 
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In (1.12) V’ indicates the gradient taken with respect to 7, and in (1.12), 
G=G(r—r,t—T). 


Proof. Using (1. 6), (1.7) as well as Lemma 1.3.1, and assuming that u is divergence- 
free, i.e., that ae Wh, = = 0, we get the vector IE (1.11). 


1.4 The Pressure p 


We here derive an integral expression for the pressure p. Our derived expression is 
obtained under the assumption that if u is divergence-free, then so is the vector on 
the right-hand side of the IE (1.11). 


Theorem 1.4.1. Let each component of u° € S$? and let each vector u € S} on the 
right-hand side of (1.12) be divergence-free. Let the pressure p be selected such that 
the vector on the right-hand side of (1.12) is also divergence-free. Then p is given by 


pen = [ “(F —7) g(t) dr (1.13) 
R3 
where 
@(r) = ae 
ae (1.14) 
sFn= >> Sou Gnu). 
j=l k=l 


Proof. By differentiating each term on the right-hand side of (1.8) with respect to 
x;, Summing over j and in that way, “forcing” (1.2), we get 


3 3 
dm, =0= D(a -B-C), (1.15) 
where 
Ai = / G, (7-7, 1) w4 (7) dr’ 
R3 


Fi 3 
-_ 7 Sz : 
B =| i: G(r -—7,t—1) 2, (Ft) wl. @,1) d7 dt (1.16) 


; = 
=| / G(r —',t—1) ped dt. 
0 JR3 
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For the term A’ in (1.16) we clearly have pa A’ = 0, since we assumed that 
u° is divergence-free. Next, by our assumption that the right-hand side of (1.12) is 
also divergence-free, we must also have i (Bi + C’) = 0. But by application of 
Lemma 1.3.1 to this sum, we arrive at the equation 


t 
o= | / GF-7,.t—1) {9 ,¢) + Ay p’.t)} dF dr, (1.17) 
0 R3 


in which g is given in (1.14) above. 
In this case, because the right-hand side of (1.12) will also be divergence-free we 
determine p(7, t) such that 


A; p(7,t) =—g(7.0, (71 € Rx [0,7], (1.18) 


with g given in (1.14). There is only one solution to this PDE problem which 
satisfies (1.18) and which is bounded on R? for all ¢ € [0, 7]; this solution is given 
by the statement of Theorem 1.4.1 above. 


1.5 Modifying the IE 


The above derived expression (1.13) for the pressure p leads to a more complicated 
kernel in the N-S IE, which we will now simplify. 

If we substitute p as given by Theorem 1.4.1 into the IE (1.12), then the resulting 
right-hand side of the IE involves an integral over R® x (0,7). We can reduce 
this integral into a lower dimensional integral based on the result of the following 
lemma. 


Lemma 1.5.1. Let .% be defined by 
KH (r,t) = / G(r—¥ ,t) G(r’) dr’, (1.19) 
R3 


where Y and % are given in (1.6) and (1.14) respectively. Then X is also given by 


1 1 r 
KH (7,1) = — — / exp ( *) dy. (1.20) 
0 


4 13/2 (et)!/2 -Aet 


Proof. We set A= (Aj, A2,A43), and A = | Al. It is well known that the Fourier 
transforms of Y(7,t) and @(7r) taken with respect to 7 are exp(—A? €f) and A~? 
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respectively. Hence, it follows from (1.20) that .% is just the inverse transform of 
the product of these transforms, i.e., 


1 i _ 
KH (r,t) = ee [ e AT A~ exp(—A? et) dA. (1.21) 


Transforming this integral from Cartesian to spherical coordinates, so that the 
element of volume dA becomes A? d92(A) where (-) denotes a unit vector and 


where dQ(A) denotes the solid angle, and using the easily verifiable result [3], 


/ _ e 4 dQ(A) = jp AD) (1.22) 


Al=1 Ar’ 


that is obtainable by expanding (Ar)! sin(Ar) in powers of Ar and then 
performing term wise integration, we arrive at (1.20). 


1.6 The Theoretical Iteration Scheme 


In this section we introduce two iterative methods for solving (1.11)-(1.12), the 
first, a Neumann-type iterative method, which we shall use to prove existence and 
uniqueness of the solution, and the second, a Gauss-Seidel type method, which we 
shall use in Chap. 5 below to get a numerical solution. 


1.6.1 Von Neumann Iteration 


Let us write the IE (1.11)—(1.12) in the IE form 
u=v+Nu; Nu=Pu+Qu, (1.23) 
where V is given in (1.12), and where 
Pu(r, ft) 


= If ((V’4@F-—7%,t-7)) -u/,¢)) ul, ¢) dr df 
0 JR (1.24) 


QuG,1) = i i (WHE =F. 1) 1) a at. 


In (1.24), g, Y, and % are given in (1.14), (1.6), and (1.19)—(1.20), respectively. 


1.6 The Theoretical Iteration Scheme 7 


One way to solve (1.23) for sufficiently small T is by use of the classical 
successive approximation scheme 


Unti =V+N(U,), n=0, 1, ..., (1.25) 


with Up = v. In Chap. 4 we shall prove that this procedure converges on R? x [0, T] 
for suitably restricted ranges of T and v. 


1.6.2. Gauss-Seidel Iteration 


Instead of using the scheme (1.25) to solve (1.12) we shall use the following Gauss— 
Seidel—like scheme, 


1 er | Lot 222: 533 
Unt. = ver N (Uy. Un» Ur), 

2 ee 2(,,1 2 43 
Ui, =v +N (Us. UU), (1.26) 
3 gd 3(,,1 2 3 
Unt) =U aN nti Unt U;,), 


starting with Up = v, where 


v(F,t) = / G(r —7 thu! (7) dF 
ad (1.27) 
Nu = Plu+ Qu, 


and where 


Piu(7, t) 
=| [ (V'9G—F 1-1)» wt) WG) dF df, aoe) 


ewen=f [ A FHT t=7 art dr de, 
0 R ; 


where g is given in (1.14). In general, the scheme (1.26) converges more rapidly than 
the scheme (1.25), and indeed, our programming examples comparing this Gauss— 
Seidel scheme with the one in [2] bears this out. It thus enables a convergent iterative 
solution for larger values of T than that for (1.25). 
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Chapter 2 
Spaces of Analytic Functions 


Abstract We present here spaces of analytic functions A? , C S” as well as spaces, 
Avar © Sp,n = 1, 2, 3. In this chapter, we shall study the properties of these 
spaces, we shall prove in Chap.3 that if the components of the initial condition 
vector u° belong to Ad , then each component of N u of (1.23) belongs to Ad a7 and 
we shall furthermore prove in Chap. 4 that the solution to (1.23) belongs to Ad ar 
for all T sufficiently small. These spaces are in fact special cases of the spaces S” 
and S¥, introduced in Sect. 1.2. They provide several conveniences, such as enabling 
sharper error bounds and yielding exponential convergence of our approximate 
solution which we obtain in Chap. 5. 


2.1 The Spaces A’, and At 


Let n denote a positive integer, and let us now define vector spaces of functions Aj , 
and AY ar: 


Definition 2.1.1. Set 7* = r+ip, with? € R", p € R", setr = |r|, and p = |p|. 


(a) Corresponding to some positive numbers a and d, let Aga denote the family of 
all functions f with the following properties: 


(i) Analyticity property. There exists a positive number d’ > d, such that each f 
is analytic in the domain 


n= F =F+ipeC": p<d'}: (2.1) 
and 
(ii) Asymptotic property. There exist positive numbers C = C(f,d’) anda’ > a, 
such that for all 7* € Y,, 


| f(F*)| < C exp(—a’’ r). (2.2) 


Notice that if f and g belong either to Ag g or to Agar, then so does h, where 
for any constants a, b, andc,h =af +bg,orh=cf. 
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(b) We also define the space Af, of functions f = f(r*,t*) such that f(-,t) € 
Aja for each fixed t € [0, T], and such that (7, -) is an analytic and uniformly 
bounded function of t = f* in the “eye-shaped” region 


Gur ={t €C: | arg(t*/(T — t*))| < a’}. (2.3) 


(c) The spaces AZ , and A’ , , are normed for p € [1, 00) by || - |lp, i.e., 


1/p 
Iflo=(f, weorar) itp €{1,00) and 
- (2.4) 


Iflleo = sup I. 
reR" 


and similarly, 


T 1/p 
lf llp7 = (/ i if (7, ny? arat) , if p € [1, 00) and 
alae (2.5) 


IIfllor = _ sup |f(7,0)I. 


FER" t€(0,T) 


The following theorem describes an important and beautiful property of the class of 
functions AZ 4. 


Theorem 2.1.1. Jn the notation of Definition 2.1.1, let f € A® 4. Let f denote the 


Fourier transform off, 1.é., 
f(A) = / f(r’) exp(iA-7) dF’. (2.6) 
R" 


Then f € AG y- 


Proof. The one-dimensional version of this result is found in Theorem 26 of 
Sect. 1.27 of [3]. The proof of the three-dimensional case is similar, and we omit it. 


a 
Upon recalling the inverse Fourier transform formula for R? [see, e.g., (1.21)] we 
also have by Parseval’s theorem that 


fll = 22)? Iflla, (2.7) 


and similarly for ||/||2.7. 
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Definition 2.1.2. Let n denote a positive integer, and set b = (b1,..., bn), with bj 
nonnegative integers and with |b] = Dei bj, and define 


albly 


b ¢ _ 
nie O(x!)P1, 2, A(x )bn 


(2.8) 


Theorem 2.1.2. Let d, d’, a, and a’ defined as in Definition 2.1.1 be given. 


(i) Iff € An, thenD?f € Any; 

(ii) Iff is analytic in the domain Y', and if for allr* = r +i p in Y;, and constants 
C > 0,m > 0 and a” € (a,a’), we have f(r*) < Cr™ exp(—a”r), then 
fee 


Proof. Part (i): In the notation of Definition 2.1.1, taking d” € (d,d’') anda” ¢€ 
(a, a’), we have for any 7* = (x!,x°,x°) € GY", and any e € min(0,d' — d”, (a — 
a’’)), that 


af _ ik! fp") dé! 


= : ae 2.9 

Ox! 21 |F*—p* |=e (&/ — x/)k ( ) 
Hence by our assumption that for all 7* € Z, we have |f(7*)| < Cexp(—a’ r), it 
follows that |f(0*| < C exp(—a’ p + €) < C exp(—a” p), and so 


uae 
ox! 


er exp(—a”’ r), (2.10) 


This proves Theorem 2.1.2 for the case of f = f(r*) when taking one derivative 
with respect to x/. The proof for the case of D’ f is similar, just by repeating the 
one-dimensional argument. The proof for the case of f = f(r*, ft) with t € [0, T] is 
also similar, and we omit it. 

Part (ii). Let us select ¢ > 0, such that a” — ¢ > a, and let us then select R > 0, 
such that if r > R, then r” < exp(er). Then we have Cr” et” < Ce" forr > R, 
where B = a” — & > a. We now select C’ > 0 such that C’e°® = CR". Then 
C' eb’ < Cr™e”" for r € (0, 00). 


2.2 Denseness of AY a in S” 


As we already mentioned, our preference is to work with the spaces A? ,, not only 
for computing the solution of the N—S equations efficiently and accurately, but also 
for obtaining a simpler proof of existence of the solution to the equations. We first 
show in this section that the Sinc spaces are dense in the spaces S”. We then use 
this result in Sect. 2.2.2 to show that the spaces A’ , defined above are dense in the 
spaces S”. 
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Now, let h > 0, let k € Z, let € € C, letk € Z”, and letr € R". Let us 
define the Sinc function S(k, )(€) in one dimension and a product .(k, 2) (7*), in 
n dimensions, where now 7* € C". 


S(k, W(x) = se 
h 
(2.11) 


Sk hy) = [][S&.ME). & EC. 


j=l 


2.2.1 Denseness of Sinc Approximation in S" 


We shall prove the denseness of Sinc approximation only with respect to the “sup” 
norm; we omit the proofs of L?—approximation at this time, since such proofs 
follow almost verbatim from the L° ones of this section. We thus prove only the 
following theorem in the remainder of this section. 


Theorem 2.2.1. Let r = (xi, ..., X") € R", let g € S", leth > 0, let N bea 
positive integer, and set 


val?) = >> (kh) A(k,h)(7), (2.12) 
keEZh, 
where 
ZL = {k=(kl,..., eZ": -N<K<N,j=1,..., nh. (2.13) 


Given any positive number &, we can selecth > 0 and N such that 
lg — 8vall = sup |g(7) — gnn@| <e. (2.14) 
7eR" 


We split the proof of this theorem into the proofs of some lemmas. 
We omit the proof of the following lemma since the (a)-Part of it is well known 
({2], Theorem 1.2.1), and since the (b)-Part follows directly from the (a)-Part. 


Lemma 2.2.1. 
(a) If (x,y) € Cx (—-2/h, 2/h), then 
= ¥ SG.O@e™. (2.15) 


j€Z 
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(b) Let Q” be defined by 


Cap © > ss FER Ss Eleaf Leen): (2.16) 


Then we have the identity 


exp(ir - p) = > S(k,h)(r) exp(ijhp - k) (2.17) 
kez" 


forall (F,p) € C" x Q". 


Remark 2.2.1. The function on the right-hand side of (2.15) can be extended as a 
function of y to the real line R, where for arbitrary integer m it is a periodic copy of 
e'*) on (—2/h, 1/h) to the interval ((2m—1) /h, (2m+1) 2/h). The infinite series 
on the right-hand side of (2.15) is discontinuous at each of the points (2m + 1) 2/h 
where it takes on the value cos(z x). In particular, both functions, that on the left- 
hand side of (2.15) and that on the right-hand side, are bounded by 1 on R x R. 
Similarly, both sides of (2.17) are identically equal on C x Q", and also the right- 
hand side of (2.17) has periodic extension to all of R”, similar to that of (2.15) for 
the n = | case, and so both sides of (2.17) are bounded by 1 on R” x R”. 


Let gy, be defined as in (2.12) and set 
gn(r) = lim gyp(7). (2.18) 
Noo 


Lemma 2.2.2. Let g € 8S”, and let gy, be defined as in (2.18). Given ¢ > 0 there 
exists h > 0 such that 


= _ E 
lg — gall? = Sup Ie — gn) < 5. (2.19) 
reR” 


Proof. Let g denote the n-dimensional Fourier transform of g, i.e., with 7 and p in 
R", 


ie [ _expliF = p) (0) dp. (2.20) 


It then follows immediately, upon using (2.17) and applying the inverse of the 
Fourier transform formula of (2.20), that 


87) — 8n(7) 
1 
= -iF - p)— )) Ak AVG —ihk - p)] - 
Ony 1 (cs ir ~ p) 2 (k, h)(7) exp(—i a) (2.21) 


-8(p) dp. 


14 2 Spaces of Analytic Functions 


It is well known ([{1], Corollary 3.2.1) that if g € S”, then its Fourier transform, 
@ € 8”. Hence there exist constants C > 0 and B > 0, such that 


Ie(p)| < C+ py". (2.22) 
Since the difference between each side of (2.21) is zero on Q” and is bounded by 


2 on R” \ QO", and since 0 < p""! < (14+ p)""!, we have, with @, denoting! the 
“surface area’’ of the unit ball in R”, that 


1 
l= Bel Seas i eld 
(2 a)" R"\Q" 
2C 
= 


(1+ p)-"? dp 
(2 a)" i 


9G. FP 
< (1+ p)”* dp 
(27)" a/h 
(2.23) 
2C0, [ <j - 
= p" '(L+ py”? dp 
(27)" a/h 
202, 
< 


p-1 
(1+ p)? "dp 
(27)" is 


= 2CQ, 
~ (2x) B+ 2/h)P 


Under our assumption that 6 > 0, the right-hand side of (2.23) clearly approaches 
0 as h — 0. Hence, given any ¢ > 0, we can determine h > 0, such that ||g(7) — 
Bu(F)|[° < €/2. 


Lemma 2.2.3. Leta > 0, y > 0, set w,(a,t) = (1 + (a + eyey assume that 
h > 0, and that N is a positive integer. Then, 


(i) 


2 
So wyaiash) < 7 w,(a,N h). (2.24) 


Lil>N 


'Q, = 2n"?/P(n/2). 
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(ii) Ify < 2(. +a), then 
; 4 
do wy t1(a. ih) < = wy(a,0). (2.25) 
eZ y 
Proof. Part (i). Note that w,+1 (a, f) is an even function of t which is monotonically 


decreasing on (0, 00). Since |t|/(a? + 7)'/? < 1, 


2 [o.@) 
» Wy+1(4,jh) < = i, Wy+1(a, t) dt 
h Inn 


jJ>N 


[oe 
t 
7 I, @r pinned (2.26) 


2 
= hy Wy (a, Nh). 
Part (ii). Set 


I 
I(w) = A [vrntana 

(2.27) 
J0w) = Yo wy ei(a, jh). 


jeZ 
Then J(w) < I(w) + |J(w) —I(w)|. 
Let us first bound /(w). Inserting the factor |t|/(a? + 17)!/? < 1 into the integral 
in (2.27) yields 


2 


Iw) < aoe (l¢(@+ pyl/2y-h7 a 
= 2 fo Fae (1+ (2+ Piz) 1 a (2.28) 
— 5 ee = mar 
Next, for any w € C![0, h] we have the easily verified identity 
h A 
5 (100) + Wm) =f EW! at 2.29) 


where E;,,(t) is defined on (0, ) by E,(t) = t — h/2. We can extend the definition 
of E),(f) to all of R by setting E,(t) = E,(t — mh) on (mh, (m + 1)h), with m 
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an arbitrary integer. We furthermore set E,(mh) = 0, m € Z, and we then have 
supjer |En(t)| < h/2. 

Notice now that whi) > Oif t < 0, and Wai) < Oif t > 0, and it follows, 
thus, from the definition of J(w) given in (2.27) and our remarks following (2.29) 
that 


[I(w) — J(w)| < —2 i w)4 (a, thdt = 2 wy+41(a, 0). (2.30) 
0 


If we now add the right-hand sides of (2.28) and (2.30) we find, under the 
assumptions made in the statement of Lemma 2.2.2 (ii), that 


A 


2 
— w,(a,0) + 2w,+1(a, 0) 


I(w) < Iw) + Iv) — Jw) S ip 


(2.31) 


4 
< Pe Wy (a, 0). 


A 


Lemma 2.2.4. Let g, and gy, be defined as in (2.12). If Zi, is defined as in 
Theorem 2.2.1 and if h is selected as in Lemma 2.2.2, then we can select N > 0 
such that 


lgn — gnall < (2.32) 


€ 
5" 
Proof. We shall again use our above definition of w,+1 ie., taking r = |r|, we set 


Wysi(r) = A+ r)~’—!, since it is now convenient to take a = 0 and y+ 1 = n+, 
with B > 0. We can then write the difference g, — gy, as a telescoping sum, 


Ign — gvall® = sup] D> g(hk) 7(k,h)(7) 
PER" |kezn\Zi, 


<C SS watp(lk") (2.33) 
k'ez"\ Zn, 


<C 0 SO wapp(h|k®)). 


t=1 |k|>N 


In this notation, the operator o denotes a product of n — 1 sums, with ¢ — 1 of 
them taken over Z‘~! and the other n — £ of them taken over Z” \ Z, where Z?! is 
defined as in Theorem 2.2.1. More specifically, we can write 0 = deze! Vaz 
(with these sums being replaced by “1” when € — 1 = 0 and when n — £ = 0). 
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Since w,+g(r) > 0, we increase the right-hand side of (2.33) by replacing each 
truncated sum ))yvez¢ with Dixtez, € = 1, ..., m— 1. Similarly (note, at 
the symmetry and positivity of w,4+g(r) enable us to replace each double sum 
Vez Ly |>n occurring in the sum line of o with Yyez Dayjsn- for £ = 
2,...,n. Upon doing this, and taking k”~! = {(k?, ..., k") € Z’!}, each fth 
row of sums becomes the same, i.e., we get n such sums, so that 


Ign — wall <Cn Yo So wap g(h|k', Kk"). (2.34) 
k'-lezgn-1 |kIJ>N 


Applying Lemma 2.2.3 (i) to bound the sum with respect to k! on the right of (2.34), 
we get 


2Cn 
lgn — Snall° < ——.—— Watp—1(h|N,k"!]). (2.35) 
(n + B ~ 1) h os, 


We next successively apply Lemma 2.2.3 (ii) to each single sum in the product of 
n— 1 sums of (2.35), one at a time, under the assumption that (1 + Nh) > B. After 
applying Lemma 2.2.3 (ii) to the first sum, the resulting (2.35) becomes 


Ign — gnnll® 


= p= DG p= De 2 Wn+p—2(h |N,0,k"~*|). 


k?—-2eEzZn-2 


Hence repeating this process another n — 2 times, we get our final result, 


4"-1(2Cn) 
»— ev all? < ; 2.31 
Ilan — awall SF (, + NDF (2.37) 


in which (B), = B (B + 1),--- ,(B +n—1). 

Since h is fixed, it is clear that the right-hand side of (2.37) approaches zero as 
N — oo, and we can thus select N so that 2(1 + Nh) > 8, and also, so that the 
right-hand side of (2.37) is less than ¢/2. 


2 

By combining the results of Lemmas 2.2.2 and 2.2.4 we get ||g — gnn||° < 
lg — gall + llgn — gual < 6/2 + ¢/2 =. 

This completes the proof of Theorem 2.2.1. m 
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2.2.2 Denseness of the Space Av, in S" 


Let r and p belong to Zi, let .7(k, h)(r) be defined as in the above subsection, let 
g € 8", let Zi, be defined as in (2.13), and for arbitrary fixed p € R”, let us consider 
the Sinc approximation of «(g, p,7) = exp (—|7 — f|*) g(7), Le., let us examining 
the difference 


En »(k) = sup |K(g, 0,7) — ». K(g,r, hk) A(k, h)(7)] . (2.38) 


reR" 
keZi 


Evidently, given any p € R", x € S” whenever g € S”. Hence, it follows that 
Theorem 2.2.1 applies to this function « uniformly, for p € R”. We thus take 6 = 7 
in (2.38), to get k(g, 7,7) = g(r) enabling us to state the following result: 


Theorem 2.2.2. Given any g € S", and given any positive number e, there exists 
a positive integer N, constants cy, and functions wgk,k € ZX, with each of the wx 
belonging to Aj, 4, such that 


CO 


g— do ckwel) <e. (2.39) 
keZi, 


Proof. The above description of « taken together with Theorem 2.2.1 enables us to 


state that given any e > 0, there exists a number h > 0 and a positive integer N such 
that 


sup |g(r) — » g(hk) exp (—|7 —hk|’) W(k,h)(7)| < e. (2.40) 


reR" 
keZi, 


The proof is completed upon noting that each of the functions 


we(F) = exp (—|7 — hk|?) A(k, h)(7) (2.41) 
belongs to A® , for all positive numbers a and d. 
7 
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Chapter 3 
Spaces of Solution of the N-S Equations 


Abstract In this chapter we prove that if each component of the vector u on the 
right-hand side of (1.11) is divergence-free and belongs to the space of functions 
Ad a7 then the same is true of the operation Nu on the right-hand side of (1.11). 
We also derive some bilinear form expressions for the operation N u thus paving 
the way for our proof of existence of a solution to (1.11). We then give precise 
conditions for convergence of successive approximations to the solution of (1.11) 
based on the contraction mapping principle. 


3.1 Banach Spaces 


In this section we introduce Banach spaces #4 and 47 which are convenient for 
studying the operator equations (1.23)—(1.24). 

Thus, for given u = (u!, u”, u*), we use the notations || - || for our 2-norm defined 
as in (2.4), to define our norms of the vector u. Letting || - || and || - ||7 be defined as 
in (2.4)-(2.5), we set 


1/2 


3 
lull = (Soy?) . and 
j=l 


(3.1) 
1/2 


3 
luli = | 2 ells 
j=l 


depending on whether u is independent or dependent on T respectively. Note also 
z 1 _ R 
that |||] = ((2 7)°) fe |||w||| and similarly for |||all|,. 
It is convenient at this point to also introduce a Banach space of functions. 


Definition 3.1.1. 


(i) Let a and d denote arbitrary positive numbers. Let Z denote the Banach space 
of vector functions w = (w!,w*,w°), with w divergence-free, with each w/ 
belonging to Aj ,, for j = 1,2, 3, and with |||w||| < co. 
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(ii) Let @r denote the family of all vector functions u = (u!, u?, u>) with u(-, f) € 
B for all fixed ¢ € (0,7) with wv € A} ,; and with ||lull|; < oo. 


We shall then prove, in essence, that ifu € Ar, then Nu € &-. This statement will 
be made more precise in what follows. 
The following lemma plays an important role in the proofs which follow. 


Lemma 3.1.1. Let 6 be a positive number, let gy be defined as in Definition 2.1.1, 
and let A* € a If 0<t<T < @, then the Green’s function GY given in (1.6) 
has the Fourier transform 


G(A*,1) =| exp(i A* - 7) Y(F, 1) dr = exp (—-(A*)’ et). (3.2) 
R3 


(a) The function G., t) is analytic and bounded in 3. 
(b) Furthermore, 


lim sup _—_— |G(A*, A)| = on. (3.3) 


POO (Ax )EF3x{0,T] 
In particular, G(A*,t) is unbounded in the region {C3 x [0,T] : |SA*| > 
|S A*|} as T > oo. 
Proof. Let us observe by (3.2), that if (A*,t) € C? x [0, T], then 


sup |G(A*,1)| = exp (|SA*|? 7). (3.4) 
A*€ C3 1E[0,7] 


The statement of Lemma 3.1.1 follows by inspection of this identity. 


3.2 The Vector v = Gu? 


Let us begin by bounding the norm of y = Gu? with u° defined as in (1.3), and 
with |||w]|| defined as in (3.1). We shall also show that if u° is divergence-free, then 
v € Br, where v is defined as in (1.12). 


Theorem 3.2.1. If 0 < T < ov, and ifu’ € &, thenv € &y for all finite T > 0. 
Moreover, 


ville = {Ilu? I. (3.5) 
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Proof. Taking the Fourier transform of each side of the first equation in (1.12), 
we get 


V(A,t) = [ exp(ir - A*) u°(7) dF 
(3.6) 


= w(A*) exp(—e (A*)2 0). 


where A* = A + if, with A and / belonging to R? and with p = |p| < d’. 

Since u° € &, each component of u” belongs to Ad q 80 that by Theorem 2.1.1, 
each component of u° belongs to Ag, and hence each of these components is 
analytic in Re ,. Inspection of (3.6) shows that ¥ € Ayg.r if the function exp(—e A? f) 
is analytic and bounded in he for each fixed t € [0, T] and in addition, if this same 
function is also an analytic and bounded function of t € By 7 for each fixed Ae R’. 

Hence each component of v belongs to AB ar: 

Finally, note that v is divergence-free as a consequence of Lemma 1.3.1. The 
norm-bound (3.5) is a consequence of exp(—eA? t) < 1 for A € R°, yielding |||¥||| < 
||| a° ||| for tf € (0, T] together with |||¥||| = |||@°||| for ¢ = 0, and (3.1).We thus arrive 
at (3.5) and at our conclusion that v € &r. 


3.3. The Operation G,.w 


Let w be defined on R? x (0, 00), let Y(7, t) be defined as in (1.6), and let us define 
the operation G,v w on R? x (0, 00) by 


Gu w(7) = [ [ GF pitt) wit) dpdt. (3.7) 


Theorem 3.3.1. /f either w € Bad or else ifw € AC ae for0 < T < @, then 
Gu(w) € NS ode for all such T. We furthermore have 


A 


rT \W2 
IGvoNlr <2 (FL) wh, we Ady, oritwe Ady, 


(3.8) 


A 


T\i 
Gute <2(L) lle we Adar 


Proof. We have 


(Gu w) 7,1) = i, i G(r —7',t—1) w(t) dF dr’. (3.9) 
0 R3 
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Let a” € (a, a’) , and let d” € (d,d’) . The Fourier transform of G, w is given for 
A* € ae by 


G, w(A*,) = fio exp (—(A*)* (t— 1) W(A*, 1) dr’. (3.10) 
0 


Here (A/)* is the complex-valued jth component of A* € C3, with A € R and with 
3(A/)*| < 2a”. Inspection of this equation in view of Lemma 3.1.1 enables us to 
conclude the following: 


(i) Since w € AS aes we Mca by Theorem 2.1.1 , so that, by Theorem 3.3.1, 
Gwe Ajoar: 

(ii) G. w(A*, -) is analytic and uniformly bounded in Yr for each fixed A* = 
Aa ip © Dur 2". 


By (i) and (ii), Ge (w) € A3, y7- 
Next, the identity 


t 7 \ "2 
max f / Ger, t—1)| drdf =2 (.) , £=1,2,3, (3.11) 
0 JR 1 E 


te[0,T] 


yields (3.8) 


3.4 The Operation p = Gog 


Let p, g, and % be defined as in Theorem 1.4.1, so that we can also write 
PG.) = Gon = [GF pra.n ap (3.12) 
peR 


Our aim is to show that if g € ACs ar then Go g € Ba ar: This requires showing: 


(i) Analyticity. If g is analytic in F;, ,, then Go g is analytic in F;, ,,; and 
(ii) Asymptotic relation. That if g(7*, t) = C (exp(—2 a1r)) as r = |r| > ow for all 
t € [0, T], then (Go g)(7*, 1) = @ (exp(—2 a r)) as |r| > on, for all t € [0, 7]. 


Theorem 3.4.1. Let %, g, and p be defined as in Theorem 1.4.1, let p = Gog 
denote the right-hand side of (3.12). If g € Azaa,r, then Go g € Arua: 


We shall prove Theorem 3.4.1 via the proofs of several lemmas. Except for the 
analyticity part, we shall omit the dependence on ¢ in these proofs, since all 
of the results hold uniformly for t € [0,7]. We shall also omit mentioning, 
except when necessary, that bounds such as |z(7*)| < C exp(—2qar) hold for all 
P= F+idr eG. 
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Lemma 3.4.1. Let u = (u',u’,u*) be divergence-free, let g be defined as in 
Theorem 1.4.1, and define f by 


3 3 
fa) => Dew), (3.13) 
j=l k=1 
Then f = g. 


Proof. The proof of this lemma is a part of the derivation of Eq. (1.14) and is 
omitted. 


Lemma 3.4.2. Let f be defined as in (3.13). Then 


i f(r) dr = 0. (3.14) 
R3 


Proof. The statement of the lemma follows readily using integration by parts in 
each of the integral f,, D/* (uw u‘)dr. 


| 

Lemma 3.4.3. Let p be defined as in (3.12). If the conditions of Theorem 3.4.1 are 
satisfied, so that uw and uk are analytic in Dy is where, with d as in Theorem 3.4.1 
and with 0 < d < d’, then p is analytic in F;, ,. 

Proof. Let uw’ and u* belong to A} 7,7, so that z = Di*(wu®) € AB, 7p, with z 


being one of the terms in the definition (3.13) of f. Upon replacing p in (3.12) with 
R* — p, we get 


= dp. (3.15) 
4n R3 p 


Since each component of f is analytic in Da it follows by inspection of (3.15) 
that p is also analytic in Dor 


a 
We shall require the following result involving potentials. 
Lemma 3.4.4. Let p = |p|, so that dp = p? d2(p)dp, where 2 € R? and 
|§2| = 1. Then, 
1 d2(P) 


4m Jiapi=i |r — pl 


= min(1/p,1/r). (3.16) 
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Proof. Let m and k denote nonnegative integers. By expanding both sides of (1.22) 
in powers of Ar we get 


Oifm=2k+1 
(r+ py" dQ(p)" = 410 (rp)? (3.17) 
iaial=! + ifn = 2k. 
Next, expanding |7 — p|"! = (r? + p?-27- py)? in powers of tf = 27 - p 
/(r? + p’), we get 
fo.) 2n 
24 2-1/2 Sr U/2)an (270 
Q(r,p) = (r+ p°) d (2n)! r+ p? 
oo 2n 
2 1/4)n 3/4)n (_2rp 
= (2 4 pry 2 Sr Un B/Mn 3.18 
( p) 2 (3/2)nn! \r?+ p is 
2rp 
= (P +p’)? F(1/4,3/4; 3/2; (| —— } ]. 
(7+ 6%) (save (3 (aro 
In the last equation of (3.18) F denotes the usual hypergeometric function, 
Co 
n b n 
Fla,bic: 2) = > @n (On on (3.19) 


! 
Onn! 
where this series representation is defined and converges for all |z| < 1 whenever, 
e.g.,a > —1,b > —1, andc > —1, and where, for any a € C, and n a nonnegative 
integer, 


lifn=0 


a (a+ 1) ++ (a@+n—1) ifn > 0. (3.20) 


(a)n = 


We have also used the identity (2@)2, = ral (@)n (@ + 1/2), in (3.18). 
Next, we use the quadratic transformation identity—see e.g., [1], 


4 
F(a 2b: =) = (14224 F(a,at+1/2—b:b4+1/2;2), B.21) 
(1 +2)? 


where it is assumed that |z| < 1 on the right-hand side of (3.21). Upon substituting 
the numerical values of a, b, and c of (3.18) into (3.21), we get 
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F (1/4 3/4; 3/2; a] = (1+ 2)? F(1/4,0; 5/4; 2) 


2) (3.22) 


= (1+), |z| <1, 


where the second line of (3.22) obtains as a result of F(1/4, 0; 5/4; 22) = 1. 

At this point we take r € (0, 00), and we consider two cases of (3.22),0 <p <r 
and r < p < oo. In the first case, taking z = (p/r)*, we get Q(r,p) = 1/r, 
whereas in the second, taking z = (r/p)” we get Q(r,p) = 1/p. (Note: We get 
4z/(1 +z)? = 4(rp)?/((r* + p)) for each of these cases.) 


= 

We next proceed to prove the asymptotic relation stated at the outset of this 
section. 

Let us split R? into the two regions, B; = {p € R? : |A| < r} and B, = R? \ B;. 
Let us also split the integral defining p = Gof into a sum of two integrals, p; and 
Po» 1.€., P = Pi + Po, Where 


mf 10. 
r= J axir—al 
(3.23) 
ff) 
Po(7) = [ rr i 


Lemma 3.4.5. There exists a constant C such that the function p = p;+DPo satisfies 
the inequality 


Ip(7)| = |pi(r) + po(7)| < C exp(—2 ar). (3.24) 


Proof. We shall assume without loss of generality that f is real-valued on R?. 
We split the proof of this lemma into two parts: Part I for p;, and Part II for po. 


Proof. Part I: Given f, we set f = f+ +f, where f+ (0) = f(p) if f(o) > 0, and 0 
if f(p) < 0, and where f_ (0) = f(0) —f+(p). For p andr € B;, the function %(7 — 
p) defined as in Theorem 1.4.1 is positive and varies over the range 1/(8 ar) < 
GY(p) < co. Hence, setting 


f= J fa) db, (3.25) 


and applying the mean value theorem, we get 
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a Oe 
202 | apna” 


Pi, 
(3.26) 
— Ga fe, 
where Gx are values of Y(r — p) € [1/(8 mr), 00). Hence 
pil?) = Gi fp + Gf. (3.27) 


Upon keeping the quantities f. and G4 fi +G es fixed, we can decrease the larger 
of the two of G+ and G_ and increase the smaller, until the two values become the 
same value, call it G*. Thus, e.g., G4 is replaced with G* = Gi — A and G_ with 
G* = G_+Kk, this being the first of two equations for unknowns / and k. The second 
equation obtains from the statement that G+ fe + G_ jt is unchanged. These two 
equations become, in matrix form, 


¥) (‘') 7 be. : <_) —_ 


Now, iff, +f. 4 0, then the determinant of the matrix in (3.28) does not vanish, 
and this system then has the unique solution (h,k), yielding GF = (,.G. + 
f-G_)/(f, +f). On the other hand, if f; + f. = 0, then we must have 
Gi —G_ =0,ie., G* = GG, = G_. 

By Lemma 3.4.2 we thus always have 


pil?) = G* (f, +f) 


II 


G / f@) dp 
Bi (3.29) 


II 


_G* 5) dp 
[ Ft) dp 
G* G(exp(—2a'r)), r— oo. 


Furthermore, if f is complex-valued, then we can treat the imaginary part of f in the 
same way as above. 

We also need to bound the coefficient G* in (3.29). Recall that G* is between 
the largest and smallest of Gi and G_. These three numbers, Gz and G* are 
bounded by the norm ||Go|| of the operator equation p = Gof, i.e., by using the 
L' norm, || - |i = fp, f(A) de, we get |pi(7)| < ||Goll llfll1. However, since we 


are not dealing with the whole space L!(B,), but rather with the subspace Aoy¢ 
restricted to L!(B;), we can confine ourselves to bounding this norm in this space 
functions. Since each of these functions is bounded by C exp(—2a’ r), with C and 
a’ > a denoting positive numbers, every member w of this class can be written as 
a product of a constant C times U(() exp(—2 a’ p), where U is bounded by 1 in B;. 
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Thus, as a result of supjy(5)\<1 |U()| = 1, 


Iw =f bw@ldp 


= sup / exp(—2 a’ p) |U(p)| dp (3.30) 
|U(p)|<1 YB; 


- / exp(—2 a’ p) dp. 


i 


Next, for Go w, we have, as a consequence of Lemma 3.4.4 that 


(Gow) (| s 


[ GF — p) exp(—2a! p) UCB) dp 


< sup i Gy(7 — py e72*? ULA| dp 
|U(p)|<1 JB, (31) 


; i G(F — B)dQ exp(—2a' p) p? dp 
\Q|=1 


II 


1 7 —2a’/r 
: / exp(—2a’ p) pdp = (1 —2"”")/(4a2r) [Iw]. 
0 


That is, from |Gp w| < ||Goll ||w|], we have ||Gol| < (1 — e727") /(4a3r). 
It follows therefore, from Eq. (3.30) and Theorem 2.1.1, that there exists a 
constant C such that 


\pi(F)| < Cexp(—2er). (3.32) 


Proof. Part II. For the case of p,, we may note, under the assumption that [f(r)| < 
C exp(—2a’ r), with a’ > a, by Lemma 3.4.4 and the identity do = d2(() p* dp, 


that 
“lp f@ 
mele in a a 


dQ ve : ‘ 
<| aol! C exp(—2a’ p) p° dp (3.33) 
jaj=1 40 |p—F| J, 


[o.@} 
< / C exp(—2a’' p) pdp, 
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that |p,(7)| < C’ exp(—2 a r) for some positive constant C’. 


a 
We have thus established both the analyticity and the asymptotic equality 
required of Theorem 3.4.1. This completes the proof of this theorem. 


3.5 The Operation K,« w 


We define the operation K,« w by 


(Ky w)(7, 1) = / / Kult — p,t— 1) w(p,t’) dp dt (3.34) 
0 R3 


where .# is defined in (1.20), and the subscripts again indicate differentiation. We 
shall prove 


Theorem 3.5.1. [fp € AB var and if T < o, then Ky p € Madr Moreover, 


7 \ "2 
IKeplrs2(-) Whe 6.35) 


Proof. It follows from Lemma 1.5.1 that “2p = G, Gop. Theorem 3.5.1 thus 
follows from Lemma 1.5.1 and Theorem 3.4.1. 


3.6 Bilinear Forms for Nu 


We next examine some bilinear operations that enable more general and also more 
convenient ways of expressing the operation N u in Eq. (1.23). To this end, we use 
two vectors, u = (u', uw’, u’) and w = (w!, w’, w%) to define the following 
operations: 


n(u, w) = p(u, w) + q(u, Ww), (3.36) 
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with 
p(u, wi(F, t) 
7 i l ((V'9G—7,t—1)) - u@.7)) Ww .7) ar dt 
-_ (3.37) 
q(u, wi(7, t) 
= 1 i ((V’ KH (F—F,t—1')) f(u, w)(7’,’)) d7 dt’, 
0 JR3 
and with 
3. 3 
flu, w)F) = D7 Dd DM w,0. (3.38) 


j=l k=1 


We also make the following assumptions about u and w: 


Assumption 3.6.1. We assume that the components of each of the vectors u and w 
belong to MB or 


3.6.1 The Operation p(u, w) 


We prove 


Lemma 3.6.1. [f the components of u and w belong to Ae pi then p(u,w) € 
A3 wat: We then furthermore have 


7 \'2 
iipcw.w)il = 2 () ul wl (3.39) 


Proof. The operation p(u, w) is a vector containing all of the nine terms of the 
operation &,0 yi ui w*. Thus, for simplicity, we examine an arbitrary one of 
these, namely, the term 


t 
pe (ul, w)(7, 1) = / i GuyF—F,t—1) (ul w\@,¢) dF dt. (3.40) 
0 3 


Since both w and w* belong to A} ,;, the product u/ w* is contained in A}, j7-. 
Hence we can apply Theorem 3.5.1 to (3.40) to conclude that the term of (3.40) 
belongs to A}, a7 to furthermore conclude that p(u, w) € By q and also that 


PA . 
Woe l.wAir <2 (ZL) hd wr < ter we Gal) 
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The identity 
3 3 3 3 
Yo enw) Now) = SO NW) Yo Gey = [lull [llwill (3.42) 
j=l k=1 j=l k=1 


now enables us to deduce that 


T\1/2 
lie. wil <2 () ul il 3.43) 
é 


3.6.2 The Operation q(u, w) 


We first consider just one of the components of q(u, w) defined in (3.37), namely, 
t 
qe(u, w)(7, t) = i i: Key F—Ft—¢) f(a, w) (7,17) dr de’. (3.44) 
0 JR 


Lemma 3.6.2. If each component of u and w belong to AG ar then q(u,w) € 
A} adr We then furthermore have 


T \ 12 
Hao.) lly <2 (2) a tv 3.45) 


Proof. The proof of this lemma follows from Lemma 3.6.1 and Theorem 3.4.1. 


a 
Upon combining the results of Lemmas 3.6.1 and 3.6.2, we get 


Theorem 3.6.2. [f each component of u and w belong to AS ae then n(u, Ww) € 
A3 wat: We then furthermore have 


Tr \1/2 
mca. w)Hir <4 (=) Hl wr 3.46) 


Proof. That Nu € # is a consequence of our assumption that u(-, f) is divergence- 
free, the determination of g given in (1.14) such that Nu is then divergence-free. 
Theorem 3.6.2 therefore follows from Lemmas 3.6.1 and 3.6.2, since Nu = 
n(u, u), while the inequality (3.46) then follows from (3.45). 
This completes the proof of Theorem 3.6.2. 
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Let us end this section with a corollary using Eq. (3.15). Upon integrating both 
sides of this equation over R*, interchanging the order of integration, and recalling 
that tes z(p) dp = 0, we deduce the following: 


Corollary 3.6.1. Let u € &r, let g be as given in (1.14), and let the pressure 
Dp = Gog be defined as in (1.13). Then 


i p(r,t)dr = 0. (3.47) 
R3 


Reference 


1. http://mathworld.wolfram.com/KummersQuadraticTransformation.html 


Chapter 4 
Proof of Convergence of Iteration (1.25) 


Abstract We prove that if the initial vector u° belongs to the Banach space # 
defined in Definition 3.1.1, then the iterative sequence of functions defined as 
in (1.25) converges to a unique solution for all T sufficiently small. 


4.1 Contraction Mapping Principle 


We consider the definition of a sequence of vector functions {U,}°2) defined as 
in (1.25). Let the Banach space F be defined as in Definition 3.1.1, let u° € Z, 
III {-} lll be defined as in (3.1), let v be defined as in (1.12), and corresponding to a 
positive number J, let S(v, b) denote the family of all vector functions u such that 
Iu —villp <b. 

The Contraction Mapping Principle applied to our operator equation (1.11) takes 
the following form. 


Theorem 4.1.1. Given the operator equation (1.11), let w € &, and let the 
sequence {U,}°°., be defined as in (1.25). Let & € (0,1) denote positive number, 
and set b = |||N(v)|||-/(1 — 45). Assume that for all u and w in S(v, b), we have 


IIN@) — N(w)|Ilr < {lla — wlllr. (4.1) 


Then U, € S(v,b) for alln > 0, U, — u* asn —> o, where u* is the unique 
solution in S(v, b) of Eq. (1.11). Moreover, 


6 
[On — wll S Hy Mn — Galle 
(4.2) 
<  |IN(v) — vil 
1-6 r 
Proof. We omit the proof, which is obtainable from many sources—see, e.g., 
Sect. 14.1 of [1]. 
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Let us now determine a number 6 € (0,1) such that the conditions of 
Theorem 4.1.1 are satisfied. We can achieve this requirement based on the results of 
the previous section. 

Let n(u, w) be defined in (3.36), and in this notation, let us replace u by u + w, 
and w by u — w. Theorem 3.6.2 then immediately yields: 


Lemma 4.1.1. Let T > 0, and let each component of u(-, t) and w(., t) belong to 
the Banach space #r, as defined in Definition 3.1.1. Then 

IIN@) — N(w)|llp < ¢7'/? ||IN(u+ w)|llr Illa — willy. (4.3) 
where 


c=4/(ex)'/?. (4.4) 


Proof. Upon replacing u with u + w and w with u — w in (3.47), we get (4.3). 


| 
Next, letting v be defined as in (1.12), and taking u = v in Theorem 3.6.2, we 
get 


Lemma 4.1.2. Let u° belong to AB q and be divergence-free, let v and N(u) be 
defined in (1.12), and let c be defined in (4.4). Then 


IIN@Illr < eT”? Ilvlllr- (4.5) 
Next, by repeating the steps of the proofs that lead to the statement of Theo- 
rem 3.6.2, we arrive at 
Theorem 4.1.2. /f the conditions of Theorem 3.6.2 are satisfied, if0 < 5 < 27/7”, 
and if 
8° 1-6 


T< , (4.6) 
32 |llvlll; 1 + @ — 8)! 


then sequence {U,}°2,, defined in (1.25) will converge to the unique solution of 
Eq. (1.23) as stated in Theorem 4.1.1. 


Proof. It follows from Theorems 4.1.1 and 3.6.2 that 6 is the maximum value of 
cT'/?(|\u + wil|,), with u and w in S(v,b), and with b = cT'/? |\Iv|l|7-/( — 6). 
Thus, replacing each of |||u||| and ||| w|l] with [|vilp+ = lllvlllp +e 7"? Illvlllp/A— 
6), equating the result to 6, and then solving the resulting quadratic for 5, we get 


(1 = 6)1/2 
2 


47"? Iv = (+(1 + 8)? — (1 —8)"/). (4.7) 
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Only the (++) sign applies, since the right-hand side of (4.7) must remain positive. 
we must have T!/? > 0. Also, the maximum value of the right-hand side of (4.7) 
(0.2666) occurs for 6 = 1/ V2. 

The statement of Theorem 4.1.2 follows. 


Reference 


1. J. Todd, Survey of Numerical Analysis (McGraw-Hill, New York, 1962) 


Chapter 5 
Numerical Methods for Solving N-S Equations 


Abstract In this chapter we describe several methods of approximating solutions 
to the Navier-Stokes (N—S) integral equations (1.23). We first introduce several 
possible bases, including polynomial, Sinc, and Fourier polynomials. These bases, 
covered in Sects.5.1 and 5.2, enable effective methods for solving N—S equations 
in the spaces introduced in Chap. 2.These described bases enable several possible 
ways of carrying out the solution to (1.11) iteratively, and we list some of these in 
Sects. 5.1 and 5.2. 


5.1 Approximating Bases 


Let (w_u, W—-m+1,---,Wn) be a set of basis functions for interpolating a function f 
defined on I’, i.e., an open, finite, semi-infinite, or infinite interval (a,b) on R, or 
even an analytic arc in the complex plane, i.e., 


N 


fa DI wm fOw, xe. (5.1) 


k=—M 


Here, the x, are distinct points, which we assume to appear on J” in the order 
Xm, X-m+1, .--, Xn. The wz, are basis functions, which can be polynomials, 
rational functions, Sinc functions, trigonometric functions, etc. 


5.1.1 Bases for Solving N—S Equations 


Various methods of approximation may be used to approximate solutions to Navier— 
Stokes Equations. 


5.1 (i) Using polynomials p» with zeros at 
Xm, X-M+1, ---, Xv, wherem = M+ N + 1. We define the w; as follows: 
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w(x) = Pm(X) 
ee = HK) Phy ED 
e (5.2) 
= X— Xe 
jeune? 


5.1 (ii) For Sinc interpolation on I’, we use a one-to-one transformation @ of 
I’ — R to get an approximation of the form (5.1), with 


sin {7 (g(x) —kh)} 
7 (p(x) — kh) 


w(x) = (5.3) 


Such methods and the error of their approximations are discussed at length in 
[8, 11], and we will not go into further details here. 

5.1 (iii) Similarly, trigonometric wavelet formulas may be used. Details for these 
can be found in Sect. 1.4 of [11]. Such methods are best suited for use with 
Fourier transforms and FFT, and for interpolating periodic functions. 

5.1 (iv) To date, we have not yet investigated the use of splines; we leave open 
this possibility for future research. 


For all of these cases, we define a row vector w of basis functions and an operator 
V by 


w= (w_y,.-..Wv), Vg = (g(x_m),---,8(%N))’ : (5.4) 


these enable us to write (5.1) in operator form, 


frwve. (5.5) 


5.2 Approximation Operations on Bases 


We shall use several operations on bases. 


5.2.1 DFT Approximation 


We start with a Sinc approximation of a function f defined on R, which we 
approximate via a truncated Sinc expansion in the form 


N 


F(x) © vx) = S> v(k hy) SK AY). (5.6) 


k=—N 
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where, for convenience, setting f, = f(jhx), for j = —N, ..., N, we define v and 
its Fourier transform Vv by 


v= ((1/2) fun. fongis «6s frets (1/2) fy)’ 
(5.7) 
v= (t_n, a @ eg by)’. 


Iff € A} , and we take h = hy = (2 d/(a N))'/? then the L’(R) difference between 
f and v is of the order of N'/? exp (—(7 da N)'/”) for p = 2 and also for p = 00 
(see [8], Sect. 3.3). This error bound extends readily to more than one dimension— 
see ([8], Theorem 6.6.2). Next, taking the 1-d Fourier transform of each side of (5.6) 
we get the DFT approximation of the Fourier transform f of f, i.c., with y € R, 


70) = [ el? f(x) dx 


N . (5.8) 
Y> u(kh,) et" if ly] < F 
k=—N 

0 if |y| > 2. 


Note that in the Fourier transform space of variable y, there are N equi-spaced 
intervals on (0, 2/h,), and hence each of these has size hy = a/(Nh,). The 
difference on R between f and @ is again of the order of N'/? exp (—(a da N)'/) 
for p = 2 and also for p = 00 (see [8], Sect. 3.3). 

Equations (5.6)—-(5.8) enable us to define two DFT matrices, A = [a;,] and B = 
[bits with 


Gye = hy exp(ijka/N) 
I (5.9) 
— —ijkn/N 
oe OWA, © 
Let us illustrate explicitly the use of these matrices. 
Letting v be defined as above, we get 
vV=Av 
(5.10) 
v= BY. 


More details of these derivations are given in [11, Sect. 1.4.9]. 
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5.2.2 Indefinite Integration 


The indefinite integration operators are defined on I” = (a, b) by 


X b 
(sta =f sod. (x) = f etoee 6.11) 
Using the basis function w,; defined in (5.2) or (5.3) above (or even one of the 
trigonometric wavelet bases of [11], Eq. (1.4.16) or [11], Eq. (1.4.19), we define 
numbers Wic (Gk) € (—M, ...,N) which are the (7, k)th entries of m x m (m = 
M +N + 1) matrices W~, by 


xj b 
wit = [wiles Wy =f wu(s)ar 
a ¥ (5.12) 


It is convenient to also introduce definitions of the corresponding approximating 
operators Y, which yield the accurate approximations 


A 8% Sm 8 (5.13) 


these are defined by 


Jn S=ww Vg, (5.14) 
where w and V are defined in (5.4) above. These approximations are accurate in the 
spaces of Chap. II, and the error of these approximations are discussed in Sect. 4.5 
of [8] (and in Sect. 1.4 of [11]) for the case of trigonometric wavelet approximation. 

Corresponding to the exact expression, G = Y + f, we obtain, upon applying 
the definition of V given in (5.4)-(5.9), that 


VG V (Sng) = W*Ve. (5.15) 


The eigenvalues of the matrices W~ have some very pleasant and useful properties. 
These properties stated in the theorem which follows were conjectured for the case 
of Sinc approximation by Stenger over 25 years ago; Stenger then offered $300 for 
proof or disproof of this conjecture. A proof was recently found by Han and Xu [5]. 


Theorem 5.2.1. The matrices Wt and W~ have the same eigenvalues 8;, but 
they have different eigenvectors. All of them = M+ N + 1 eigenvalues of Sinc 
approximation matrices W~ lie on the open right half plane. 
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5.2.3 Differentiation 


The derivative of the Sinc series for a function f on R yields an accurate 
approximation of f’, at least in the case when f belongs to a Sinc space Ava: 
However, the derivative of a Sinc approximation is not accurate in the neighborhood 
of a finite end-point of an interval of approximation, although in this case, the 
derivative of polynomial that interpolates at Sinc points does yield an accurate 
approximation of the derivative of f [10]. Furthermore, since the eigenvalues of 
the indefinite integration matrices lie on the open right half plane, the inverses 
of these matrices for both polynomial and Sinc approximation can be used to get 
accurate approximations to the derivative, i.e., if G = _%~ g, we get the accurate 
approximation at interpolation points, 


Vgx~ +(W*) 'VG. (5.16) 


5.2.4 Indefinite Convolution 


See, ([8], Sect.4.6), or ([11], Sect. 1.5.9). Our model integrals over an interval 
(a,b) C R take the form 


pa) = f fe—ngtodr 
a (5.17) 


b 
ax) = | f(t —x) g(t) dt. 


Taken as integral equations, these two are the most often solved equations in the 
world, e.g., g, given p (or qg) and f (think, e.g., of using the p.a.d. of a smart 
phone, pressing a typewriter key, or pressing a button in an elevator). However, 
whereas such modern devices use chips based on ODE with constant coefficients, 
our methods for evaluating (or solving) (5.17) have advantages, in that they are not 
restricted in this way. 

The Laplace transform f(s) and—our preferred version—the “Laplace trans- 
form” F(s) are given as integrals over (0, c) with c > b—a by 


fi) = [ “roar 


é (5.18) 
Fo) = [rode 


where we assume that these exists for all Xs > 0. We may note also that the mapping 
s — 1/s is a one-to-one transformation of the right half of the complex plane to 
itself. 
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The following has been proved [8-10]: 
Theorem 5.2.2. Let p, g, g, F, and Y~ be defined as above. Then 


p=Fl 2") ¢, q=F(JS-) g. (5.19) 


Proof. We omit the proof of this theorem, which can be found in the above cited 
references. 


a 

Equation (5.19) appears esoteric. They are, nevertheless, extremely useful. To 
illustrate, let w, V, and W* be defined as above, and let, e.g, WT = XSX7', 
where S = diag (s_y,..., Sy) is a diagonal matrix and where X is the corresponding 
matrix of eigenvectors. Since we have the accurate approximations Yr ~ £7 
for the case when these operators are applied to functions in Al aw we have the 


similarly accurate approximations Ja g ~ £~g. More explicitly, e.g., for the 
case of #* g, 


p=F A g 

Pn) 8 

wF(W*)Veg pet) 
= wXF(S)X'Vg. 


ow 
nw 
~ 
y 


That is, in matrix-vector form, we get the accurate approximation 
Vp x XF(S)X 'Vg, (5.21) 


at the points at which we interpolated g. Similarly for the case of g. 
Remark 5.2.1. 


5.2.1(i) The diagonal matrix F(S). The numbers F(s;) denote the elements of 
the diagonal matrix S. If F is not explicitly known, then the values F(s;) can 
be approximated to arbitrary accuracy via use of Sinc quadrature applied to the 
“Laplace transform” integral (see [11]). 

5.2.1 (ii) The matrices W~. The operators _Y%~ and the above matrices W~ are 
translation invariant, i.e., they are the same for (a+ c,b +c) for any c € R. The 
bases w will, of course, have to be modified depending on the interval, i.e., on 
(a + c,b + c) the basis is v, with v;(x) = w;(x — c). 

5.2.1(ii) Positivity of the real parts of the eigenvalues s;. Recall, we assumed 
that Its > 0 for the existence of the Laplace transform (5.13) above. We thus 
require that all eigenvalues of W~ have positive real parts, in order for the 
approximation in (5.20) to be well defined. The Conjecture A referred to above 
alludes to this for orthogonal polynomial methods, while the recent proof [5] 
shows that this is in fact the case for Sinc approximation. 
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The above convolution approximation formulas have important ramifications in the 
following cases: 


5.2.1(iv) Abel integrals, or Abel integral equations. These are no longer a 
problem. See the example in Sect. 3.6 of [11] and [1-3]. 

5.2.1(v) Laplace transform inversion. The above convolution procedure yields 
a new formula for Laplace transform inversion (Sect. 1.5.10 of [11]). If g(s) = 
iy e~“f(t)dt, for some c > 0, and if (e.g.) Y * is the indefinite integral operator 
over (0, d), for some d < c, then we get the following identity ([8], Sect. 4.6), or 
({11], Sect. 1.5.9) for f over (0, d): 


ra(sty e((4ty) 1 (5.22) 


where “1” is the identically 1 function on (0, d). 


If W* is defined as in (5.11) above, then we have the following easy to obtain 
approximation of f at the interpolation points Oy} =r, 


ve ~ (Wt) | g (Wt) ') 1, (5.23) 


where 1 is a vector of m = M+ N+ 1 ones. This formula enables us to compute 
f to arbitrary accuracy on (0,d), provided that f is analytic on this interval. It 
is a stable formula, and except for “table lookup,” it is considerably easier to 
apply than any other inversion formula known to us. Note, (5.15) enables us to 
write (5.17) in the more computable form 


Vf = X (S7' F(S)) (x7'1). (5.24) 


That is, if a user is happy with a certain approximation that is determined by the 
(usually relatively small) matrix size m = M+ N +1, he/she can store the matrix 
X as well as the vectors u = (s_y, ..., sy)’ and v = X7'1. Once he obtains 
J (s), he can form the vector 


T 


oS (if (sth) 5 ong Se Pe) 


form the Hadamard product w = u * v of the two vectors u and v, and then 
form the product f = Xw for which the vector f = (f_y, ..., fy)’ yields 
the approximations f; ~ f(x;), where x; is defined as in Sect.5.1 above. The 
amount of work is thus not much different from performing FFT. Furthermore our 
family of approximation methods enables accurate approximations even though 
f may have singularities at the end-points a or b (or both), and in our methods 
enable accurate approximation with matrices of small order m even though f may 
approach zero slowly. 

5.2.1(vii) Hilbert transforms. The identities (5.18) enable a new formula 
expression for Hilbert transforms (see [8] or Sect. 1.5.12 of [11]) on (a,b). It 
is the following: 
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b 
(F g)(x) = pay. f 80 
= (log (4*) —log(47)) 8 (5.25) 
V # g = (log (W*) — log (W )) Vg. 


This identity, together with the easy to compute formula for the index (([8], 
Theorem 1.3.2), enables easy to apply numerical procedures for solving any 
of the singular integral equation (including as Wiener—Hopf; see below) and 
Riemann problems toward which Nother [7] made important contributions [4, 6]. 
5.2.1(viii) Wiener—-Hopf Problems. The classical Wiener—Hopf integral equa- 
tion takes the form 


f(x) — i k(x —t) f(t) dt = g(x), x € (0,00). (5.26) 


The problem is to solve this equation for f, given k and g. 

During the last few years of the 1960’s decade, pure and applied mathematicians 
of nearly all of the “top 10” mathematics departments in the US worked on 
problems related to the Wiener—Hopf method. During that time, the pure mathe- 
maticians found a number of excellent novel results on this subject. However, the 
problem was not solved in the applied world during that time, since it is almost 
never possible to find the requisite explicit factorization of |—K, with K denoting 
the Fourier transform of k. The above indefinite convolution procedure enables 
us to circumvent such a factorization, by proceeding as follows. 

Write Eq. (5.26) in the form 


f(x) - [iw t) f(t) dt — [we- t) f(t) dt = g(x), x>O0. (5.27) 


At this point we can apply indefinite convolution to each of these integrals to get 
the linear system of algebraic equations 


Vf —(FT(W*) +F (W )) Vf x Ve, (5.28) 


where 


Ft(s) = / * eS k(£t) dt. (5.29) 
0 


The solution (5.27) enables arbitrary accuracy, even (via use of singular value 
decomposition) when the IE (5.26) does not have a unique solution. Indeed, this 
method of solution extends to solving integral equation formulations of partial 
differential equation problems. 
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5.2.1(x) Novel methods solving PDE. The above indefinite convolution proce- 
dure extends to more than one dimension, in which case it enables approximate 
solutions of all PDE of the form 


where, in 1, 2, or 3 space dimensions (and 4 dimensions including time, for the 
case of heat and wave problems), Lu can take any of the forms 


— Au, 
1 Ou 
Lu= a a _ Au, or 
; (5.31) 
1 oOfu 
Au. 
2 (On 
= g(r,t,u, Vu). 


All such PDE can be reduced to the solution of integral equation problems using 
Green’s functions. By the above convolution procedure, we can treat the time 
variable the same as a space variable. Furthermore, for each (space or space plus 
time) dimension, each of the above PDE is solved via use of one-dimensional 
matrix multiplication algorithms that differ only in the different forms of the 
“Laplace transforms” of the Green’s functions. 

5.2.1(x) Indefinite Convolution Methods for Navier-Stokes Problems. Let us next 
mention some methods which we shall apply in this monograph to solve the 
problem (1.23). 


5.3 Approximating the N-S Equations 


There are many ways of approximating the operators in Eqs. (1.23)—(1.24), some 
of these being better than others. Since we have shown that the solution belongs to 
Ad _ with respect to the spacial variable r, indefinite convolution combined with 
Sinc approximation works in all cases. DFT approximation on R* meshes with 
Sinc approximation; it is suitable in all but one case, namely, that of the Fourier 
transform ron w, due to the presence of the denominator A? in this expression. 
We thus approximate the pressure using indefinite convolution combined with Sinc 
approximation. We are also restricted to using Sinc approximation in the variable ¢ 
on the finite interval [0, T], since the solution of Eq. (1.11) has a singularity at t = 0. 

Let us determine our notation for the interpolation points, for approximation over 
IR? x [0,7]. For approximation as a function of 7 = (x,y,z), we shall interpolate 
the solution with spacing h; = h on each interval [-X/2 < x/ < X/2], so that 
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h = X/(2N). The Fourier transforms of Sinc approximation vanishes outside 
of each interval [—1/h,2/h| = [—Y/2,Y/2], so that we here have equi-space 
approximation with spacing hz = h! = m/(Nh),ie., Y = 2N/h. The points of 
interpolation in the ¢ variable are just t,,, where 


T h 
pee cL ee AR (5.32) 


~ L+exp(uhr)? 


We shall also use the t and t, notations in the one-dimensional convolution 
approximation of the convolutions with respect to f¢. 

We also introduce a more convenient notation for interpolation in R? and the 3—-d 
Fourier transform space, as follows, 


r= Tike = hG, k, £), 
A= Ajee =h' (,k, 9), (5.33) 
A= Ajo =W"(P +P +L)”, 


with h! = m/(N hy). 


5.3.1 The Vector v 


The Fourier transform of a component v” of v is given by 


5°(A, t) = (A) exp(—A’ et), (5.34) 


which yields the approximation 


A 


= [heen] = [eee Gren]: (5.35) 


where 


[Gicen| = [exp(-(Ajxe)? et,)] - (5.36) 


5.3 Approximating the N—S Equations 47 
5.3.2. The Approximation of Pu + Qu 


Let us observe, at the outset, that from (1.28) and the definition “ = GY * % 
of (1.19), we have that the 3-d Fourier transform of the vth equation of (1.26) is 
given for v = 1,2,3 by 


Nu(A, 1) = (Pu + Q’u)(A,1) 
3 


eee = = 5.37 
= i G(A,1- 7) | (ia w *u’(A, 1) + id’ p(A,¢) | dt, eat) 
0 = 
where the “*” denotes a Hadamard product, where p denotes the pressure 
p= Gof, (5.38) 


where f = f(u, u), and with f(u, w) given in (3.38). 

It is evidently convenient to first compute the pressure p, in view of (5.37) 
and (5.38). We shall carry out this operation using 3-d Sinc indefinite convolution 
by means of the following result (see [8, 9, 12]), about which we omit the details 
although we present these details in our algorithm and program in Sect. 5.4 and in 
Appendix A below. 

Let us here state for completeness the 3-d “Laplace transform” of the Green’s 
function Go(7) = 1/(47 r). 


Lemma 5.3.1. Set 6 = (1/&', 1/€, 1/&), and p = (1/(€!)? + 1/(€?)? 
+1/(€3)?)'/". Then 


ap=aee.ey= [of [pier nar 


4ur 

(5.39) 
1 /1 
2 (; — Ho(&", &?, £°) — Ho”, &°, &") - Ho(§?, 1.8) 
Letting Q(a) be defined as in ([11], Theorem 2.4.1), and setting 
i. 1 ss 1 
"Ve" © 

(5.40) 


&3 4 i &2 
‘Si = \ 8 ie’ 
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we have 


l | 
Hol! 8.6) = +7 (QUE) — O-i8)). (5.41) 


The use of this identity was already demonstrated to be effective in [12]. 


5.4 A More Detailed Algorithm 
Initializations 


1. We first select an error criterion ¢, and then we determine space parameters a, d, 
h, N, and time parameters a7, dr and hr and M to achieve an error of 


(5.42) 


2. We then also determine the spacial @; = jh) and time variable (t,—-see (5.32)) 
Sine points, the Fourier transform variable Sinc points y; = j h', a DFT matrix 
of order m = 2N + 1, and its inverse, an indefinite integration matrices A = 
Ar = ZS,Z™ of order mp = 2M +1 and B = B; = YS;Y as well as 
the eigenvector matrix Z and its inverse, and also, its corresponding eigenvalues 
S; = diag (t_y, ..., Tw) and S; = diag (s_y, ..., Sy). 

3. We then also evaluate the 3-d arrays U°” = [uo (ih, kh,£ h)| forv = 1, 2, 3, 


as well as the Fourier transform arrays U®”. 

4. We then also need to determine the Fourier transforms of each of the components 
v” of v, and evaluate these at the points Ajxe = h’ (j,k, £). Since the Fourier 
transform of Y is exp(— A? ¢ f), these four-dimensional arrays are given by 


y= [Wises = [exp (-A},0etu) Prize]; 


5. Set W° = V", v = 1,2,3; 
6. (***) Set 7 = W’, v = 1,2,3; 


The First Equation of (1.26) 


We perform the following evaluations. 
1. Form the Hadamard products X! =U! «Ux? = U! x U?, Xe =U! «x U’, 
CaP se Cals Vand = ee: 
2. Form the 3-d Fourier transforms X” of these; 


5.4 


oo ND 


10. 
11. 


A More Detailed Algorithm 


. Form the 4-d array 


f=—(Q'PX! +221 22x? +201 28x) 


— (2X4 4207 + (BPX); 


. Form f from f via 3-d spacial inverse Fourier transform. Note, this has to be 


done with respect to each ¢,, to get the complete 4-d array; 


. Form p = Gof, using 3-d Sinc convolution. This also needs to be done for 


each t,,; 


. Form p from p via 3-d spacial Fourier transform, and then form } = iA! p; 


Form 2 = i (atx + A? xX? + x3); 


. Form x = 9+ 2; 
. For {j,k, ae do the following: 


a. Form the vector é = Xx. of size m = 2M + 1 from the array 5; 
b. Form diagonal matrix D = diag(d_y, ..., dy) with 


d,= Tu 
iL =. ee 
1+ € App) th 
c. Form the matrix C = Z D Z~!,—see above for the definition of Z; 
d. Replace é with é = Ce; 
e. Form Njxi. = € 


Form U! = y! +N; 
Form U! from U! via 3-d spacial inverse Fourier transform; 


The Second Equation of (1.26) 


We next perform the following evaluations. 


1. 


2. 
3. 


Form the Hadamard products X” = U! * U”, for v = 1,2,3. Note: X*, X°, and 


X° are the same as for the first equation above; 


Form the 3-d spacial Fourier transforms X” of these three new 4-d arrays; 


Form the 4-d array 
fee (atx! 424142 x2 424! 13 x*) 


— (2X4 + 207 + (3)? X*) ; 


oma NAN 


10. 
11. 
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. Form f from f via 3-d spacial inverse Fourier transform. Note, this has to be 


done with respect to each t,, to get the complete 4-d array; 


. Form p = Gof, using 3-d Sinc convolution. This needs to be done for each t,,; 
. Form p from p via 3-d spacial Fourier transform, and then form } = iA? p; 


. Formz =i (ae + 42x34 + eX); 
. Form x = + 2; 
. For {j,k, a an _y do the following: 


a. Form the vector @ = X;,1. of size m = 2M + | from the array ; 
b. Form diagonal matrix D = diag(d_y, ..., dy) with 


Th 


d, = ———,—_-.. 
1+eArp sty 
Note these entries are the same as for the first equation; 
c. Form the matrix C = ZDZ7!. See above for the definition of Z; 
d. Replace é é with é = Cé; 
e. Form N; ikl = =é 


Form U? = v2 +N; 
Form U? from U? via 3-d spacial inverse Fourier transforms; 


The Third Equation of (1.26) 


We next perform the following evaluations. 


1: 


2. 
3. 


Oo ao nN AN 


Form the Hadamard products X? = U! * U*, X* = U? * U*, and X° = U? * U?. 
The remaining X/’s are the same as for the second equation above; 

Form the 3-d Fourier transforms X” of these three new 4-d arrays; 

Form the 4-d array 


f= —(aryex! 424142x2 +2414? Xx) 
— (27 X44 202 03 + (PX?) ; 


. Form f from i via 3-d spacial inverse Fourier transform. Note, this has to be 


done with respect to each ¢,, to get the complete 4-d array; 


. Form p= Go f, using 3-d Sinc convolution. This needs to be done for each t,,; 
. Form p from p via 3-d spacial Fourier transform, and then form } = iA? p; 


. Formz =i (ax + 42x0 + a3x*); 
. Form x = 9 +2; 
. For {j,k, ete a _y do the following: 


a. Form the vector é = Xx. of size m = 2M + 1 from the array 5; 
b. Form diagonal matrix D = diag(d_y, ..., dy) with 
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10. 
11. 


Tu 
dy = ae 
+ € Ajit 


Note these entries are the same as for the first equation; 
c. Form the matrix C = Z D Z~!—see above for the definition of Z; 
d. Replace é é with é a= Ce; 
e. Form N; ikl = 


Form Us = ve +N; 
Form U? from U? via 3-d spacial inverse Fourier transforms; 


Convergence Test 


Set U = {U', U?, U*} 


Test: |||U— Wl]: ¢ 2! 


(No) > (***) 


(Yes) — Graphing of results. 
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Chapter 6 
Sinc Convolution Examples 


Abstract This chapter collects two examples demonstrating the application of the 
DFT-Sinc convolution algorithm. We apply the algorithm to an initial vector field 
with Gaussian and hyperbolic multiplier. The two multiplier functions used for 
initial conditions guarantee that natural Dirichlet boundary conditions are satisfied. 
The different asymptotic decays of the multiplier functions require a special choice 
of the step length. For both examples we indicate some practical applications. 


6.1 Introduction 


Before we discuss the numerical solution of the N—S equation let us comment 
on some symmetry properties of Eq.(1.1). The symmetries are useful for the 
interpretation of the derived numerical results. There are well-known symmetries 
of the classical Navier-Stokes equation for the three-dimensional incompressible 
viscous flow 


du + u div(u) = —e Au — grad(p) (6.1) 


where ¢€ is the viscosity of the fluid. The density is set to a constant p = | 
in (6.1). The system (6.1) is equivalent to (1.1), allowing for point symmetries. 
Point symmetries are determined by applying Lie’s transformation theory to (6.1) 
[4-7, 9, 11, 12]. The idea behind Lie’s approach is to use the invariance of the 
equations under symmetry transformations. The transformations are applied to 
independent variables (x,y,z, 1) as well as to the dependent variables (u', u*, u*) 
and p. The laborious algebraic calculations nowadays can be performed by using 
computer algebra programs like MathLie [1, 2]. The symmetries under which (6.1) 
is invariant are Galilean transformations, rotations, and scale-dilatation of the 
independent and dependent variables. We verified the symmetries given in [4— 
7,9, 11, 12] using MathLie. The benefit of a symmetry analysis is that the different 
types of solutions can be classified and some special solutions directly follow from 
such an analysis [4, 5, 7, 12]. For example, the Galilean invariance guarantees that 
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the N-S equation allows moving waves which are not our target for now. The scale- 
dilatation invariance given by 


7 - 2 1 1 

r—>Ar,t>Ar tu sh, and p > pP (6.2) 
with A the scaling or group parameter results to similarity solutions [3, 6, 10]. 
Similarity solutions are particularly important for practical applications in fluid- 
and aerodynamics [3, 8, 13]. The solution type resulting from (6.2) possesses the 
analytic structure 


1) 1 r t dpG.i) 1 rt (6.3) 

u(r,t) = —=u| —,~ } andp(7,t) = ~p|-~,~ ; 
Ji NVR - We NID 

where u and p are solutions of the N-S equation. If the group parameter A is chosen 

as A = t/T where T is a characteristic time in an integration process, we gain 


_ VT [*+VT 1 7 
u(7,t) = ae (37.7) = ve (=) and (6.4) 


T (rT 1 (F\ . 
p(7,t) = —p(| —,T) =—pr| —) witht =2/T. 
rok et aa 


where ur and pr are solutions of the N-S equation. The scaling structure in (6.4) 
tells us that the solutions can be appropriately scaled by using a characteristic time 
T. Thus selecting an appropriate interval [0, 7] guaranties that the structure of the 
solution will be well defined [14]. This is also proven in Chap. 3 specifically for 
our numeric approach. Especially the scaling property of time allows us to make 
an interpretation of our numerical results as well as a transformation to a selected 
time scale. In addition to these symmetries of the N-S equation a fluid dynamical 
system under some constraints shows isotropic properties. Isotropy of the pressure 
is a well-known phenomenon under certain physical conditions. The most famous 
one is Pascal’s law. 

In the following sections we illustrate the application of the DFT-Sinc convolu- 
tion to the N—S equation using the theoretical background discussed in the previous 
Chaps. 1-5. The aim is to derive approximate solutions in 3-d for the Navier-Stokes 
initial boundary value problem (1.1)—(1.3). We illustrate the solutions of the integral 
equations on a finite cube imbedded in an infinite continuum. 

The numerical computations were performed on different notebooks (PCs) with 
Intel processors Core™ 2 Duo, Core™i7, and Core™ i7vPro. The computers were 
used either as a single machine or in a network of four machines operating on 
Windows 7 with at least 3 GB main memory. The code for our algorithms is written 
in Mathematica 10. A detailed description of the Mathematica functions is given 
in Appendix A. 
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The use of small scale computers implies that we were looking for an effective 
implementation using specifically parallel capabilities of Mathematica. The result is 
an implementation using sequential and parallel computations together. Whenever 
possible and suitable for the calculations the Mathematica functions adapt to the 
needs of the computation. This way the resources of computers like memory and 
speed of processors are automatically selected. 

A spin off, of the DFT-Sinc convolution implementation is, we need not set up 
the “big matrices” that are required for the solution of PDE via finite difference 
and finite element methods. These big matrices are one of the reasons why it is 
not possible to achieve high accuracy in solving PDE via these classical methods. 
Another reason is that the rate of convergence of the DFT-Sinc convolution 
technique is much more rapid than standard methods offer [16]. 

To get an idea of the complexity of numerical work let us note the following 
estimation. In a typical calculation with N = 20 Sinc points — which is fairly large 
for DFT Sinc calculation — we find that we get at least 5 places of accuracy. The size 
of the corresponding matrix involved in the computations is 41° x 41, or 68921 x 
68921 elements. Such a matrix, which is full, contains in total 4750104241 ~ 4.75x 
10° elements. If such a matrix were to be obtained by a Galerkin scheme, with each 
entry requiring the evaluation of a three-dimensional integral, and with each integral 
requiring 413 evaluation points, then more than 3.27375 x 10! function evaluations 
would be required, an apocalyptic task indeed, lasting approximately 3 years on 
present-day computers. On the other hand, our method accurately gives us all of 
these values in minutes, and for relatively little work. 

The implementation of the temporal-spatial convolution algorithm follows the 
outline of the main algorithm discussed in Chap. 5. The main target of the imple- 
mentation in Mathematica was to combine symbolic and numeric calculations, the 
so-called hybrid calculations. The use of symbolic and numeric calculations opens 
the potential to manipulate some of the calculations symbolically without numerical 
assignments. Using such intermediate symbolic results can finally be turned into 
numerical procedures delivering numerical values. The numeric values in turn can 
be used again in a symbolic representation of the final results. This combination of 
numeric and symbolic calculation opens a broad field of application in the design 
of algorithms in general. For our specific problem it simplifies the calculations 
and allows a direct implementation of the mathematical definitions and theorems 
discussed in the previous Chaps. 1-5. 

The specific implementation for our calculations is based on a single interface 
function NavierStokes3D[]. This main function uses the essentials of Eqs. (1.1)- 
(1.3) like initial conditions, domain ranges, and discretization data. The main 
function NavierStokes3D[] uses several sub-functions related to specific tasks 
needed for the different steps in the algorithm. Such sub-functions are assigned to 
discrete Sinc-Fourier transforms and its inverse, calculation of convolution integrals 
in 3-d, generation and application of conformal maps as well as their inverse, and 
generation of discrete Sinc grids in 3-d and along the time axis. The details of these 
sub-functions are discussed in Appendix A. 
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The use of Mathematica has thus enabled us to effectively unite the definitions, 
theorems and lemmas of the previous chapters. 


6.2 Example 1: Gaussian Multiplier 


Our first example is the same example used in [14]. We use this type of initial- 
boundary value problem as a reference for our results. Note the solution algorithm 
in [14] is different from the current one. The current implementation combines DFT 
and a spatial Sinc convolution while in [14] uses only a Sinc convolution approach in 
all coordinates was used. We start out with the same divergence free initial velocity 
vector field u° given by 


w = (y—zz—-%,x— ye" with PF =x +y’42. (6.5) 


The initial condition satisfies natural boundary conditions; i.e., lim,o. u = 0. Such 
kind of boundary conditions can be generated at an initial stage by choosing a 
bell-shaped multiplier function as a common factor in the vector field u° on R?. 
In Mathematica the initial vector field u° is represented by 


ud = fy—z,z—x,x— yye bt ey 


fer Py g,eP Prt 9,6" Hey 


where we use Mathematica’s vector notation to collect the components of a vector 
field in a 3x1 matrix. The coordinate vector {x, y, z} is used in the same manner to 
generate r? in ar by applying a dot product to this vector. Based on the initial and 
boundary conditions we will compare the derived results with the ones presented 
in [15]. Such comparison opened insights in different directions for improving the 
calculations and the algorithmic approach. 

Our aim with this example is to present an overview of the numerical solutions. 
We also demonstrate the calculation of some properties like flow fields, pressure 
distribution, and vorticity important in practical applications. In addition to the 
results given in [15], we verify that the error decay of the calculations follows an 
exponential relation as the number of Sinc points increases. However, the calculated 
error presented is not an absolute error as estimated in Chaps.2 and 3. Instead 
we use the contraction mapping result of Chap. 4 to derive a relative error which 
approaches the absolute error as N — ov. As proved in Chap.4 the algorithm 
satisfies a contraction condition of a fixed point scenario that allows us to compare 
solutions relative to a reference that yields the expected decay. 

At the outset, we first collect information already available by the initial 
condition. We deviate here from the procedure of [15], in order to get more insight 
into the physical properties of the solution of the PDE. The first derived information 
is related to the initial vector field itself. We demonstrate how the flow lines and their 
strength are distributed in the spatial domain J = {(x,y,z) : —3 <x < 3,-3 < 
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Vector field u° at t=0 


Fig. 6.1 Initial distribution of velocities in 3-d space around the origin. The length of the arrows 
represent the magnitude of the velocity field at that position 


y < 3,-3 < z < 3} by graphing the initial vector field. A 3-d representation of 
the initial vector field is shown in Fig. 6.1. The graph shows that the initial vector 
field is exponentially decaying due to the Gaussian multiplier. The length of the 
vectors that depict the field strength decrease rapidly away from the origin, due to 
the Gaussian multiplier. In addition, we observe in Fig.6.1 that there is a certain 
rotation of vectors present in the vector field u°. 

To quantify the rotatory behavior of the vector field we calculate the vorticity w 
by applying the curl to u° to find 


vorticity = Simplify [Vg.y,3 x u0 | 
yar (-xy+2+y4+2-1), 
Ze 2 (x? —xy-yzt 2 1) , 


ee (7 —xz+y°—yz- i)} 
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Fig. 6.2 Strength of the vorticity |o| = curl (u°)| atz=0 


The result demonstrates that the vector field although divergence free, div (u°) = 0, 
possesses a certain rotational strength |w| = |curl (u’) l The vorticity strength |@| 
is shown in Fig. 6.2 where the spatial distribution on the domain Y with z = 0 is 
visible (left panel). The vorticity strength || is also a bell-shaped function in this 
section of the space (x, y,z = 0) € R*. From Fig. 6.2 we derive that the strength of 
vorticity is asymmetric around the origin. There are two dips along the off diagonal 
direction in the (x, y) plane. The right panel of Fig. 6.2 shows surfaces of constant 
vorticity strength; i.e., j@| = const. The surfaces in R? are distorted ellipsoids for 
lower values of |@| and become ellipsoids for larger values of |w|. The vorticity and 
its strength are an essential property of the vector field shown in Fig. 6.1. 

Since we are dealing with a 3-d flow it is difficult to follow all the details of 
the complex flow pattern (see Fig. 6.1). To get an overview of the behavior of the 
streaming fluid and the influence of the rotation, we use sections of the vector field 
u° at specified locations along the z-axis. Thus we slice the 3-d continuum into a 
few pictures showing how the vector field and its strength are distributed. Figure 
6.3 shows a sequences of slices along the z-axis. Figure 6.3 collects information 
about the projection of the vector field components (u', u°*) in (x, y)-directions. 
Streamlines (circles) are used in this figure to depict the structure of the initial flow. 
In addition we graph as colored contours the strength of the total vector field u° 
using the norm of the vector field as a measure. It is clear from these graphs that 
the larger values of the vector field are always centered around the origin (bright 
colors). On the other hand, the center of the streamlines is shifted if we step along 
the z-axis. 

Another important property derived from the initial vector field is the initial 
pressure. We hasten to mention that the initial pressure is not used in the algorithm 
as an initial condition. However, once the initial conditions of the velocity field 
are given the pressure is defined by (1.13). The spatial distribution of the initial 
pressure allows us to estimate qualitatively the range of pressure values and the 
expected spatial distribution. This initial pressure strength indicates the distribution 


6.2 Example 1: Gaussian Multiplier 59 


z=-1.00 


z= 0.50 z= 1.00 z= 1.50 

3 ae 3 Pr eae 3 rae 
2 2} 2 
1 1f 1 
Oo} o} 0 
-1} = A 
2 
3 


-3-2-10 1 2 3 -3-2-10 1 2 3 -3-2-10 1 2 3 


Fig. 6.3 Slices of the vector field at different positions of z (see top of graphs). Shown are the 
stream lines of a projection of the initial vector field (in x,y-components) and the vector field itself. 
The colors represent the local strength of the total vector field u° 


of the expected pressure values in a Sinc convolution. Here we are only interested 
in the magnitude of pressure values. Once the initial conditions u° are defined a 
potential function g can be derived using Eq. (1.14) of Theorem 1.4.1 (see also 
[8]). The implementation in Mathematica uses function gh{] for this purpose (see 
Appendix A). The function gh{] computes the potential via the formula 


3 3 


Ft =0) => Sou, Ou, 0). (6.6) 


j=l k=1 


Formula (6.6) implemented in gh[] is used to derive the scalar function g applied to 
the previous definitions of u° by 


ggh = Simplify [gh (u0 , {x, y, z})] 


e 2 ty"+2’) (6 + 8x? + By? — Byz + 822 — Bx(y + 2) 


Since the original vector field consists of a linear polynomial multiplied by a 
Gaussian, we get for g a quadratic polynomial in x, y, and z multiplied by the 
Gaussian. A graphical representation of this potential function g at a section with 
respect to the z-axis is shown in Fig. 6.4 (left panel). The function in Fig. 6.4 is again 
a bell-shaped function oriented in the negative direction with respect to the z-axis. In 
practical applications such as in weather forecasting it is of significant importance to 
know the spatial pressure distribution. Such information is conveyed to us as isobars 
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Fig. 6.4 Spatial representation of the function g(r, t = 0) based on initial conditions u°. The left 
panel shows the bell-shaped surface at z = 0. The right panel illustrates a section of the total 
geometric structure, showing the bell-shaped surface at z = 


in daily weather forecasts. In the current approach the geometric structure of g is the 
source of such information. For the current calculation the geometric structure of g 
at constant values is a distorted ellipsoid. Different surfaces with constant negative 
values of g are shown in Fig. 6.4 right panel. 

According to the discussion in Chap. 1 g(r, 0) is used in the following step to 
solve Poisson’s equation (1.18) for generating the pressure. Possion’s equation for 
the pressure is given as 


Ap = —8 (6.7) 


which is equivalent to the convolution representation (1.13) att = 0 
o= i Go (F — 7) g (7,0) d7’. (6.8) 
R3 


using Go(r) = 1/(47rr) as Green’s function of the free space Poisson problem. We 
note that the pressure is calculated on R? while later on the NS equations are solved 
on J. 

The implementation of the pressure convolution integral (6.8) is included in the 
Mathematica function convolutionIntegrals3DS[] [14]. The function uses as input 
data the potential g, the domain R*, the number of Sinc points N, and a parameter 
d controlling the step length of the Sinc collocation. A calculation using the above 
defined potential ggh delivers the initial pressure p(r,0) by applying the function 
convolutionIntegrals3DS[] to it 


solP2S = convolutionIntegrals3DS [ggh , {x, —00, 00}, {y, —0o, co}, {z, —00, co}, 
4,4,4, 2]; 
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p(x,y,0,t=0), N=4 


p(x,y,0,t=0), N=24 


Fig. 6.5 Initial pressure distribution at a section with z = 0 as 3-d plot and contour plot showing 
the isobars in the fluid. The top row uses N = 4 Sinc points; the bottom row N = 24 


It is important to note that the calculation of the convolution integral in (6.8) is 
carried out on the total space R*. In our implementation there are no numeric 
approximations of infinity. The result is a representation at the initial pressure in 
terms of a Sinc approximation which is shown in Fig. 6.5. We also note that the 
pressure approximation derived via the application of convolutionIntegrals3DS[] to 
the potential g is an analytic function in 3-d. The initial pressure shown in Fig. 6.5 
has a similar bell-shaped structure as the potential function g. Due to the convolution 
of g with Green’s function Go(r) the original bell-shaped function is distorted to a 
rectangular pyramidal shape at the base and rounded on the tip. This only holds for a 
Sinc approximation with a small number of approximation points; e.g., NV = 4. The 
distortion is obvious in the right panel of Fig. 6.5 top row where we plotted contours 
of the pressure, the so-called isobar lines. Note that the ripples on the boundary 
are also due to the small number of Sinc points. If the number of Sinc points is 
increased ripples disappear and the rectangular base shape becomes an elliptic one 


62 6 Since Convolution Examples 


(see Fig. 6.5 bottom row). The sensitivity of the pressure on the number of Sinc 
points N is important for the interpretation of our later results. 

Another quite useful source of information for judging on the derived approx- 
imation in a Sinc convolution is the vector field of the initial velocity. In Fig. 6.1 
we represent the initial vector field of the velocity by a set of planar vectors. The 
different colors measure the strength of the local field (see Fig. 6.1). Since the flow 
field structure in 3-d is complicated a simplification is needed. For this reason 
we use the velocity components at specific sections to display the 3-d solution 
structure. Thus the derived information from calculations is more accessible if 3- 
d plots are used to represent the spatial distribution of the velocity. The method of 
representation is repeated for the different components and directions of the vector 
field. Such sections of the components for u° are shown in Fig. 6.6. The set of initial 
conditions u° can be graphically represented for a first overview of the solution by 
using the function vecInitialValuesPlot[]. The function uses the initial vector field 
u°, the domain J, and three coordinate values for the sections of the 3-d vector field. 


vecInitial ValuesPlot [u0 , {x, —3, 3}, {y, —3, 3}, {z, —3, 3}, 
{z > 0,z > 0, y > 0}] 


The spatial distribution of the initial condition indicates how the approximated 
solution of the N—S system may look like in a Sinc approximation. It goes without 


0. 


Fig. 6.6 Initial velocity components u°!, u°?, and u°? at sections (z = 0,z = 0,y = 0) are 
shown in panels left to right and top down, respectively. The domain of representation is J = 
{(@,y,2)'-3 Sx <3,-3<y<3,-3<z< 3} 
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saying that the final amplitudes and variations will be different from the initial 
structure. 

Having defined the initial and boundary properties, we are in a position to 
carry out a spatial-temporal approximation of the problem formulated in (1.1)- 
(1.3). For the symbolic and numerical approximation we will use a function called 
NavierStokes3D[] . For implementation details of the function see Appendix A.The 
main function NavierStokes3D[] uses the initial vector field u°, the domain 
Q x |0,T], the Sinc points N and M for spatial and temporal discretization, a step 
length parameter 6, viscosity €, and an error margin to check the convergence of the 
Gauss-Seidel iteration. In addition to the necessary input data the function uses an 
option allowing specification a file name used to store all the information of input 
and output data generated. 

We illustrate below our program layout that includes routines for computing 
NavierStokes3D[] as a function of the input data. The amount of data that is 
generated is quite large, and for sake of illustration, we attempted to limit this 
amount by limiting the number of Sinc points. The computations based on the 
Gauss-Seidel iteration is terminated by an error criterion that is computed by a 
Frobeneous norm. 

Our experience regarding the convergence of the algorithm is the following. If 
one of the vector field iteration errors is larger than 1/2, then the Gauss-Seidel 
iteration scheme fails to converge. If the error values are below this experimental 
threshold value of 1/2 we have convergence of the iteration. We also note, if the 
errors are larger than this threshold value, we have to adjust the time interval to 
reach convergence. The adjustment of the time interval is not a problem because 
larger times T can be reached by chaining the calculations using the results of the 
previous one as initial conditions. This holds as long as the algorithm converges. 
Note, such an approach is in agreement with the proofs given in Chap. 4. We also 
mention that increasing the number of spatial and temporal Sinc points needs an 
adjustment of the time interval. The following line shows a typical example of a 
calculation to solve the coupled integral equations for the Navier-Stokes equations. 


solutionsNS = 
NavierStokes3D [u0 , {x, —3, 3}, {y, —3, 3}, {z, —3, 3}, {2,0, 1. 1075} , 
2,1,2,.5, 10 — 2, exportResultsTo — {‘ demonstrationExample_001.m”}]// 


AbsoluteTiming 


— Spectrum done — 

— enter Loop — 

— Fourier I done — 

— convolution I — 

— parallel time convol I = 22.538605 
— convolution I done — 

— time step I done — 
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— Fourier II done — 

— convolution IT — 

— parallel time = 22.568609 
— convolution IT done — 

— time step II done — 

— Fourier III done — 

— convolution III — 

— parallel time = 22.224551 
— convolution III done — 

— time step III done — 
erors 7 = {2.0042728487350446**-9, 2.00427283593837*4-9, 
2.004272823975107**-9} 
error sum = 0.0000775424 


large output || show less || show more | show all || set size limit. .. 


The results generated by NavierStokes3D[] are assigned to a list solutionsNS. 
This list consists of different elements of information. Above only a shortened 
version of results is displayed. The complete output file is listed in Appendix B.The 
elements of the generated list contain the following. The first entry in the list of 
results solutionsNS is the absolute time measured to derive the approximations. 
Here the total calculation lasted about 80s. This entry is actually added to the list of 
results by applying the Mathematica function AbsoluteTimiming[] to the function 
NavierStokes3D[] and is not part of the results of NavierStokes3D[] in general. 
The essentials in the list of results are first the error components, second the analytic 
expressions for the velocity components u!, u, uv, and the pressure p. These major 
components use special symbols uh1, uh2, uh3, and ph to represent the functional 
structure. The symbol names mentioned are generated by NavierStokes3D[]. The 
resulting functions are analytic expressions in x, y, z, and t. The representation of the 
different components for u and p are based on Mathematica’s Function{] definition 
so that not only the analytic representation of the function is available but also 
derivations of this representation. The functional representation uses replacement 
rules so that the vector field components and the pressure are generally applicable 
to any kind of relations defined as expressions of the vector field u and the pressure 
p. Once we have derived these results we can use them in any expression defined 
for the vector field and the pressure. 

The last element in the results list solutionsNS collects the discrete information 
of the vector field components and the pressure. These discrete representations can 
be used, if needed, to change the symbolic representation or to be used in additional 
discrete applications. 

The overall structure of the list of results solutionsNS is thus given by the pattern 


{errors ,uh1 , uh2 , uh3 , ph , {U1 , U2, U3 ,p} 
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representing the derived information from function NavierStokes3Df{]. 

The total information needed to set up the approximation and to perform the 
calculation as well as the results of the computations are collected in a file of results 
(see Appendix B).The results file is generated by NavierStokes3D[] automatically. 
The name assigned to the file is specified as option exportResultsTo. 

If we need to retrieve such results for additional calculations, we will use the 
function importResults[] with the file name specified when the calculation was 
carried out. The definition of function importResults[] is listed in Appendix A.An 
example for retrieving data from the disc is shown in the next line. All the 
data previously stored are read into Mathematica and assigned to the variable 
solutionsNS according to the following line 


solutionsNS = importResults [“ demonstrationExample_001.m”]; 


After reloading the results the same structure of the previously generated list of 
results is available. The last element of solutionsNS contains the results. The first 
part of the list contains the input information required by NavierStokes3D[]. Having 
this information available we can easily perform the same calculation again by 
applying the function NavierStokes3D[] to this first part of solutionsNS. The used 
input data are for the above example 


First [solutionsNS ] 


froee (y—2), PYF (x $2), PP »)} 
{x, -3, 3}, £9, -3, 3}, {z, 3, 3}, {4, 0, 1-6}, 2, 1, 2, 0.5, 95} 


As a result, we get the initial values, the domains, the number of Sinc point NV and 
M, the step length parameter d, the viscosity, and the error margin, respectively. The 
collection of the input data also makes it easy to change the starting values for a new 
or additional calculation by using a larger number of Sinc points, for example. 

The last part of list solutionsNS is organized exactly as discussed above and can 
be directly used in additional calculations and graphical representations. 

We now illustrate below differing aspects of the solutions to the Navier-Stokes 
problem as functions of the generated results described above. We first will compare 
approximations calculated using a low number of Sinc points with one of larger Sinc 
points. Let us first reload two different calculations differing in the number of Sinc 
points. The first step is to define the location of the data on disc. 


SetDirectory [“ ..\\Errors_CRC”] 


.. \\Errors_CRC " 


We then retrieve the available results from these files by reloading the results for 
calculations with N = 4 and N = 18 Sinc points 


solutionsNS4 = importResults [“ exampleCRCResultsN_4_0_003.m”]; 
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u, at t/T=0.25, N=4 u; at t/T=0.25, N=18 


Fig. 6.7 Velocity component u! approximated with N = 4 and N = 18 Sinc points at z = 0 on 
the domain J = {(x, y,z) : -3 < x < 3,-3 < y < 3,3 < z < 3}. The solutions are generated 
at t/T = 0.25 using M = 6 Sinc points for the time domain 


solutionsNS18 = importResults [“ exampleCRCResultsN_18_0_011.m”]; 


As discussed the approximations for the different components are included in the 
last part of the two lists solutionsNS4 and solutionsNS18. These results are used in 
the graphical representation of the first component of the vector field uw! in Fig. 6.7. 
The generated graphs are arranged on a graphical grid in Fig. 6.7. The point is that 
we use the two specific solutions in replacement rules for u! at z = 0 at a fixed time 
t/T = 0.25. 

The resulting graphs demonstrate that even for small numbers of Sinc points 
the structure of the solution is resolved. The approximation with N = 4 shows 
oscillations of the field u! especially at the boundaries. These variations disappear 
in the approximation with N = 18. It is also seen in Fig. 6.7 that an increase of 
N from 4 to 18 changes the steepness of the peak and valley. It is striking that the 
quality of the generated results with only a few array elements is highly accurate. 
For the rest of the presentation we will restrict ourselves to the case of N = 18 Sinc 
points. 

We next demonstrate via a sequence of plots the static structure of the solutions 
at a fixed time ¢/T. In Fig. 6.8 we present the solutions for the different velocity 
components at t/T = 0.25 corresponding to 1/4 of the total time interval. 

The static solutions shown in Fig. 6.8 are similar to the original initial conditions. 
The representation of the vector field components in 3-d graphs is one way of getting 
an idea about the solution structure. However, in such graphs there is no direct link 
between the velocity components. This means that the graphs are displaying only 
separated parts of the real structure of a fluid motion. If we are interested in how 
the velocities especially the magnitude of the velocities are distributed in space, we 
can use the norm of the total vector field u. Constant values of the norm define 
iso-velocity surfaces. To represent such spatial velocity distribution, we assume a 
constant value of the magnitude of the velocity and ask how this value is distributed 
in space. The type of graphs generated by such an approach are iso-velocity surfaces 
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uy at t/T: =0.25 uz at t/T=0.25 


U3 at t/T=0.25 


Fig. 6.8 Static velocity component u!, uv”, and u> approximated with N = 18 Sinc points at z = 0 
and y = 0 (left bottom panel) on the domain J = {(x,y,z) : —3 < x < 3,-3< y <3,-3 < 
z < 3} att/T = 0.25 using M = 6 Sinc points on the time domain 


in R?. In Fig. 6.9 we generated such surfaces of constant velocity for three different 
values. The structure of the graph shows that the surfaces of constant velocity 
are tori. In addition we observe a “pipe” connecting two regions of the surface 
by trespassing the center of the torus. The tori in Fig. 6.9 of constant velocity is 
determined for a fixed time t/T = 0.25. We note that the temporal component of 
the solution is still not included in our presentations. Note also that the directional 
information is lost in such a plot. 

By including the temporal changes of the solution, we can take the approach 
to select one spatial coordinate and the time axis to represent a spatial-temporal 
structure. In addition we have to select two specific values for the remaining 
two spatial coordinates (complementary coordinates) to generate a 3-d graph. In 
Fig.6.10 we collect graphs for different spatial directions. The two remaining 
coordinates not depicted in a graph were set to specific values and printed on 
top of the graphs. We observe in Fig. 6.10 that along the time axis there exists a 
sudden transition from zero to a finite value with only small variations. This finite 
value remains until the end of the interval. Suddenly at the end the amplitude 
approaches zero. This behavior is due to the selection of conformal maps for 
finite time intervals. Conformal maps for finite time intervals guarantee that the 
Sinc approximation satisfies Dirichlet boundary conditions. The maximum temporal 
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|u|=const. 


2 


Fig. 6.9 Surfaces of constant velocity for the total vector field u. The strength of u is determined 
by the norm and set to a constant value at a specific time t/T = 0.25. The three different surfaces 
represent three different total velocity strengths in the fluid. To uncover the structure of the nested 
tori we represent only a portion of the domain Z 


value of the approximation stabilizes after a small initial time to a nearly constant 
value increasing again toward the end of the interval to a maximum. Finally this 
maximal value drops down to the original small value satisfying the boundary value. 
The maximums are rounded which may be a consequence of the number of Sinc 
points used along the time axis which is M = 6 in Fig.6.10. To confirm this 
characteristic in the time domain we run the same calculation with N = M = 8 
shown in Fig. 6.11. The overall structure with this higher resolution in time is the 
same but with a clear resolution of oscillations near the initial and terminal point in 
time. 

In addition to the velocity vector field components we examined the temporal 
behavior of the pressure p along the different coordinate axis. The results are shown 
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uy at y=1,2=0 uz at y=0,2=0 


u3 at y=0,z=0 u3 at x=1,2=1/2 


Fig. 6.10 Temporal-spatial representation of the velocity component u!, u?, and wu? approximated 
with N = 18 Sinc points. The time interval was running from [0, 7] using M = 6 Sinc points. The 
graphs use different intersection locations of the complementary coordinates indicated at the top 
of each graph 


in Fig. 6.12. We again set the complementary coordinates not depicted in the graphs 
equal to zero. It turns out that the temporal behavior in all coordinate directions 
under these conditions is the same. Thus the graphs in Fig.6.12 show that the 
pressure is an isotropic quantity. Isotropy of the pressure must be expected because p 
is a scalar field which should not change its temporal behavior in different directions 
of the domain. However, the “temporal isotropy” is a special feature if we look at 
the spatial distribution of the pressure at a fixed time (see the panel in Fig. 6.12 
bottom right). The spatial variation of the pressure is complex but resembles the 
initial pressure distribution shown in Fig. 6.5. 

In Figs. 6.13 and 6.14 we represent isobar lines of constant pressure. As already 
mentioned the 3-d representation of the pressure at a fixed time resembles the 
initial pressure distribution but shows shifts of the low pressure center at different 
complementary locations. Such kind of shifts and locations of low pressure centers 
is shown in the left panels of Fig. 6.13. 

In Fig.6.14 we display the spatial distribution of constant pressure surfaces 
(isobar surfaces). The graph was generated for low constant pressure values around 
the center of the domain. These isobar surfaces have elliptic structure. Away 
from the center of the low pressure location these surfaces become distorted 
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u, at y=1,z=0 


uz at y=0,z=0 


Fig. 6.11 Temporal-spatial representation of the velocity component u!, u?, and u? approximated 
with N = 8 Sinc points. The time interval was running from [0, T] using M = 8. The graphs use 
different intersection locations of the complementary coordinates indicated at the top of each graph 


ellipsoids. Far away from the low pressure center the surface becomes very complex 
corresponding to a pressure value which is nearly zero. 

At the end of the example we pose the question of reliability. Specifically we are 
interested in how the error of our calculations decays. The theoretical prediction 
derived in Chap.3 is that the errors decay exponentially. However, the question 
is how this exponential decay looks like for practical computations. To examine 
the question experimentally needs to repeat the calculations with different numbers 
of Sinc points. We repeated the calculation for the same initial vector field u° for 
different numbers of Sinc points N to confirm the prediction of an exponentially 
decaying error of Sinc approximation as stated in Chap. 5. Since we are lacking of 
an exact analytic solution for the given initial vector field we rely on the validity of 
the contraction theorem of Chap.4. Thus we are able to compare the calculated 
approximations with an “optimal” approximation with a large number of Sinc 
points. In our specific case we assume that we reach the optimal solution if VN = 18. 
The derived errors are all with reference to this largest approximation. Since the 
choice of an optimal N is somehow arbitrary we also use reference approximations 
with smaller NV. We start with the smallest N = 8 and increase the total number of 
Sinc points to VN = 18. We note that all these calculations use a relative measure 
and can only indicate the type of error decay and will not deliver an absolute error. 
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p at x=0,y=0 p at t/T=0.25, z=1/2 


Fig. 6.12 Temporal and spatial distribution of pressure values p at specified complementary 
coordinate locations (see top of graphs). Time was running in the interval [0,7] using M = 6 
Sinc points. The lower right panel shows the spatial variation of the pressure p at t/T = 0.25 


For the specific calculation of the error ey we use the infinity norm to compare the 
lower Sinc point approximations with the largest one. We specifically use 


Ey = |4-“#v|,,= ae (||uj — uy ||) with 8 < N < 18 (6.9) 


andi = 1,2,3, and 2 < j < N. According to the theoretical prediction stated in 
Chap. 5 the error should follow an exponential decay as 


E=aNeeN” (6.10) 


where a, b, and c are constants independent of NV. This phenomenological formula 
is motivated by the exact error relation Ey ~ N'/? exp (—cN/”) for a Sinc error. To 
estimate the parameters a, b, and c in the phenomenological formula (6.10) we used 
a least square estimation for each oe The results of the least square estimations are 
given in Fig. 6.15. The related parameters are listed in Table 6.1. The observation 
is that increasing N as a reference the phenomenological relation (6.10) shows the 
tendency to approach the theoretical estimation. At least the estimated parameters 
stabilize for the larger values from N = 12 to N = 18. 

In a second example we will use an initial condition which belongs to the space 
Aja Showing the exact error formula for only a few numbers of Sinc points. 
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p at t/T=0.25,z=0 


p at t/T=0.25,z=0 


Fig. 6.13 Spatial distribution of the pressure p at a fixed time t/T = 0.25. The left panels show 
isobar lines as projections. The right panels show the 3-d sections of the pressure at different 
complementary locations (see top of the graph). The number of Sinc points used is N = 18 and 
M=6 


6.3 Example 2: Hyperbolic Multiplier 


The second example deals with an initial vector field u° belonging to the class Aya 
of functions dense in the class S of C°® functions which are rapidly decreasing. The 
generator of this class is of the type 1/cosh(-) which is used to set up the initial 
vector field u° by 


u? = (y—z,z—x,x—y)/ cosh (va ?) wih?’ =xr+y+2. (6.11) 


Compared with the previous example this initial condition differs only in the 
multiplier. The vector components of the velocity field are exactly the same. The 
common factor is a hyperbolic function instead of a Gaussian. The question we will 
examine is how does the change of the multiplier influence the solution structure 
and how are the convergence properties affected. 

It becomes obvious from the comparison of the asymptotic behavior of the 
multipliers that the hyperbolic multiplier decays linearly with slope a!/? and the 
Gaussian quadratically for large arguments r + oo. The asymptotic behavior of the 
multipliers is the main source of the differences which we will detect. The parameter 
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lso-baric sais at p=const. and t/T=0.25 


Fig. 6.14 Isobar surfaces around a low pressure center. Section of the total space at y = 0. The 
different surfaces correspond to different pressure values. The elliptic shapes represent negative 
small values. The fractions of surfaces are representing a pressure value near zero 


a is important in choosing the step length and in achieving a certain convergence 
rate of the approximation. Thus we also expect an influence from this parameter. 


Table 6.1 Least square 
parameters for Ei used 

in (6.10). For’ < N < 18a 
subset of the data was used 
for the least square 
approximation 


945.91 
10 | 5849.72 10.867 
12 72.212 6.207 
14 89.100 6.745 
16 | 100.486 6.857 
18 82.677 6.271 


The initial vector field satisfies the natural Dirichlet boundary conditions 
lim,_,99 u° = 0. In Mathematica the vector field is represented by the expression 


74 6 Since Convolution Examples 


— eN=8 
10° — #N=10 


a N=12 


+ 1 
hu; -u' | 


— aN=14 
10“ — vN=16 


— sN=18 


Fig. 6.15 Error decay of Sinc approximations for different Sinc numbers N. The number NV 
indicated was the largest N used as reference 


ud = —S 2 gy 4‘ 
ce 


osh( «/afx.y.2}-f,y.2}) 


{0 — z)sech (Gva/e +r +2) 
(z — x)sech (vive +r +2) 
(x—y)sech ($V V2 +? +2)! 


where we used a = 2/4 corresponding to the convergence rate of ad = 1/2. 

If we examine the different properties of the initial condition as in the previous 
example, we now observe the same characteristics on a stretched scale. We 
exemplify this on the most striking similarities. The closest similarity shows up 
in the representation of surfaces of constant velocities. The iso-velocity surface for 
the above initial condition is depicted in Fig. 6.16. It is clear that again that a tori of 
the same structure is generated (see Fig. 6.9). There is, however, a small difference 
related to the geometric scale which is stretched in the current example. 

The spatial distribution of the velocity components (see Fig. 6.17) shows a close 
similarity with the velocity components of the previous example (compare Fig. 6.8). 
The domain of the current example is due to the enlarged multiplier decay. We use 
here a typical domain J = {(x, y,z) : -6 < x < 6,-6 < y < 6,-6 < z < 6}. The 
pressure p, in the lower right panel in Fig. 6.17, shows the same elliptic depression 
at the origin as before. 

The spatial-temporal behavior of the solution is close to the spatial-temporal 
pattern in the previous example. The structure of the pressure related to the different 
coordinate axis is shown in Fig.6.18. Again the scale is stretched for spatial 
coordinates. The same behavior is observed for the spatial-temporal behavior of 
the velocity components. 

In our calculations we also checked the validity of Corollary 3.6.1, ie. the 
isotropy integral of the pressure. We observe that for small numbers of spatial Sinc 
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|u|=const. 


Fig. 6.16 Surfaces of constant velocity for the total vector field u. The magnitude of |u| is 
determined by the norm and set to a constant value at a specific time t/T = 0.25. The three 
different surfaces represent three different total velocity values for the fluid. To uncover the 
structure of the nested tori we represent only a portion of the domain J 


points N the relation (3.47) is violated. However, if we increase the number of 
Sinc points N in our N—S approximation, then the relation (3.47), then the tends 
to zero. The approach to zero is depicted in Fig. 6.19. From Fig. 6.19 we can draw 
the conclusion that (3.47) is satisfied only asymptotically. Figure 6.19 shows the 
integral values on Y for the two different multipliers of Examples 1 and 2. The 
calculations used N = 12 Sinc points in the 3-d Sinc quadrature. We also checked 
the influence of the number of Sinc points on the accuracy of the pressure integral, 
to deduce that the number of points required in our 3-d integrations increased to an 
unacceptable value. It became apparent that the result of Corollary 3.6.1 shows that 
the accuracy of our computations depends on the magnitude of the integral for the 
pressure. 

Our algorithm for computing the components of u = (u!,u?, u>) is carried out 
on a region 


Dyn = (—Nh, Nh)x(—Nh, Nh)x(—Nh, Nh)x(t_m, tu) 
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uy at t/T=0.25 U2 at t/T=0.25 


Fig. 6.17 Static velocity component u!, u’, and uw? and the pressure p approximated with N = 18 
Sinc points at z = 0 and y = 0 (left bottom panel) on the domain Y = {(x,y,z): -6 <x < 
6,-6 < y< 6,-6 <z< 6} att/T = 0.25 using M = 6 temporal Sinc points 


p at y=0,2=0 p at x=0,2=0 


Fig. 6.18 Temporal and spatial distribution of pressure values p at specified complementary 
coordinate locations (see top of graphs). Time was running in the interval [0,7] using M = 6 
Sinc points. The ower right panel shows the spatial variation of the pressure p at t/T = 0.25 
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Fig. 6.19 Corollary 3.6.1 numerically verified. The Sinc-quadrature in 3-d used N = 12 Sinc 
points. The two sets of points are related to the different multipliers (see legend symbols) 


whereas a large contribution of the pressure comes from the pressure integral outside 
of this region, i.e., from the region R* \ Dy.v. At the moment we are unable verify 
this numerically. 


6.4 Summary 


The two examples demonstrate that the different multipliers affect the scaling of the 
approximation. The solution structure, however, is unaffected by the multipliers. We 
observe that in both cases the approximation structure of the solution is established 
for a small number of Sinc points. The velocity fields and their spatial-temporal 
representations are smooth surfaces in R? x [0, T]. The asymptotic behavior in spatial 
directions are fully present as natural Dirichlet boundary conditions. The pressure 
approximation, which is a derived quantity from the velocity fields, is sensitive in 
the spatial coordinates. Especially for small Sinc points N we observe ripples in 
the pressure approximations. The origin of these ripples is the spatial variations 
(first derivatives) of the velocity fields. The spatial sensitivity is reduced to a low 
level if the number of Sinc points N is increased. For values N > 18 the calculated 
approximations are acceptable. 
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Appendix A 
Implementation Notes 


Abstract This Appendix collects explicit Mathematica functions for the solution 
of the N-S problem. We present a detailed implementation and a description of 
the functions. Examples demonstrate the application of several functions to typical 
input data. The functions are implemented in the Mathematica Language version 
10. The algorithms and ideas presented in the previous chapters of this book are the 
basis for these function definitions. The main function NavierStokes3D[] collects 
all the mathematical definitions and theorems in a nut shell. The main function 
depends on different helper functions assigned to specific tasks like conformal maps, 
basis function generation, discrete Fourier transforms, generation of Sinc points, 
representation of Laplace transforms of a free space Green’s function, the symbolic 
Laplace transform, convolution integrals, and input—output management of data. 


A.1 Function Definitions 


In the following subsections we discuss different functions which work as either 
symbolic or numeric functions. The added examples demonstrate how the Mathe- 
matica functions are used in connection with the main function NavierStokes3D{]. 
The implementation of Mathematica functions follow the mathematical definitions 
given in Chaps. 1-5. The Mathematica code is furnished with comments to increase 
the readability of the programs. Comments are included between the sequences 
(* ———...——— »*). The comments are added whenever it is necessary to explain 
a specific property of the code. 

The following sections are organized according to the topics outlined in the main 
algorithm introduced in Chap. 5. We start with the initialization process consisting 
of the setup and generation of initial values. A second set of functions creates 
helping functions like discrete Fourier transforms (DFTs), Laplace transform, and 
calculation of convolutions. The third set of helper functions is related to Sinc 
methods. We define the scaled and shifted Sinc function, indefinite integrals, 
convolution integrals, Green’s function of the Poisson problem, conformal maps, 
and the basis function generation. The last set of Mathematica functions is devoted 
to the main algorithm of Chap. 5 extended by the input-output data management. 
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80 A Implementation Notes 
A.l.1 Selection of Initial Values 


The calculations for solving the N—-S equation are based on divergence free initial 
conditions. Thus it is beneficial to have a function in our tool box to generate 
such divergence free vector fields for a three component velocity field. To set up 
an effective way of calculation we first introduce a Mathematica function which 
generates a symbolic representation of such divergence free vector fields. 

The function initial ValueSelection[] is useful for generating an initial vector field 
u° for the N-S problem. It uses the idea that any divergence free vector field can be 
generated by choosing two scalar functions v and w belonging to C®~. Based on 
these two selected functions we create the initial vector u° = (u®!,u°?, u°°). To 
derive u° from these two scalar functions several approaches are possible. One way 
to set up the vector w° is to select two arbitrary analytic functions of 3 variables, v 
and w, and then to take uw? = (v,,w,,—v, — wy). This approach is based on the 
fact that the curl of a vector field is gauge invariant. Based on these ideas it always 
follows div (u°) = 0 [7]. The Mathematica definition follows directly the outlined 
steps and collects the calculated vector field in a list. Lists in Mathematica allow the 
interpretation of vectors. The Mathematica definition follows next 


initial ValueSelection[ v_, w_] := {0,v, 0,w, — (0,0 + dyw)} 


The assumption in the definition above is that the coordinates of the functions v 
and w are Cartesian coordinates (x,y,z). We did not add a third argument to the 
function definition for coordinates because the current version of the algorithm is 
based on standard Cartesian coordinates. In the next steps we give two examples 
demonstrating the use of the function. 


Example A.1.1. Divergence Free Vector Field 

The application of this function initial ValueSelection[] to two scalar fields shows 
how divergence free vector fields can be generated. By specifying the two functions 
v and w as input quantities in Cartesian coordinates (x, y,z), we derive the vector 
field. The following line gives an example of such derivation of a vector field 


vectorField = initial ValueSelection (Pee © +42) yze (ety +2? )) 


a 2a eae 
{xe xo —yr—Z — 2x27 x*—y 


4 Papa? 2 26-7 =e 


yee —2yz 


’ 


a ae es) a a) me a2 9 ait 52 
—Qxze* Y % —Dyze* Y= + 2y%ze WV HE 4 OB ze -Y =| 
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The check that this vector field is divergence free can be performed by the 
Mathematica function Div{] 


Vexy,z} ° vectorField 


0 


The result demonstrates that the calculated vector field is in fact divergence free. 7 


Example A.1.2. Divergence Free Vector Field 
If we discard the Gaussian multiplier in the previous Example A.1.1 we can 
directly verify the divergence free property of the vector field by a short inspection 


vectorField2 = initialValueSelection [zx’, zy” 


{x y’, —2xz — 2yz} 
V 


Another quite useful tool for the generation of initial values is a function 
generating a graphical representation of the vector field components as 3-d plot. 
To represent a vector field with three components defined in Cartesian coordinates, 
we have to introduce constraints to the domain. Specifically we will use a two- 
dimensional subset of coordinates to generate a 3-d representation in a graph. To this 
end we slice the space by specifying a fixed value for one of the three coordinates. 
The remaining two coordinates are used then in a 3-d representation. 

The next function vecInitialValuesPlot[] graphs the initial vector field u° on a 
specified domain. The generated sections need an additional specification of the 
location for each component of the vector field. The domains are specified by lists 
consisting of the coordinate variable and the lower and upper bounds. The section 
level for the third coordinate is specified for each component by a specific value 
defined as a rule in Mathematica. 

The first two components of the vector field u° are represented by this function 
as (x, y) plots. The third component of u° is generated as (x, z) plot. Consequently 
the first two section specifications are related to the z coordinate and the last to the 
y coordinate, respectively. The following lines show the definition using standard 
functions of Mathematica. 


vecInitial ValuesPlot[ vec_, { x_, ax_, bx_}, { y_, ay_, by_}, { z_, az_, bz_}, 
level Vector_] := 

GraphicsGrid[ 

{{ Plot3D[ Evaluate[ Part[ vec, 1] /. Part[ levelVector, 1]], {x, ax, bx}, 

{y, ay, by}, PlotRange > All, AxesLabel —> { x, y, "u,"}, 
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ColorFunction > “Rainbow”, PlotPoints — 50], 

Plot3D[ Evaluate[ Part[ vec, 2] /. Part[ level Vector, 2]], {x, ax, bx}, 
{y, ay, by}, PlotRange > All, AxesLabel > { x, y, "u2"}, 
ColorFunction > “Rainbow”, PlotPoints — 50]}, 

{ Plot3D[ Evaluate[ Part[ vec, 3] /. Part[ levelVector, 3]], {x, ax, bx}, 
{z, az, bz}, PlotRange > All, AxesLabel > { x, z, "u3"}, 
ColorFunction > “Rainbow”, PlotPoints + 50]}}] 


The next example demonstrates the application to a specific vector field. 


Example A.1.3. Divergence Free Vector Field Plot 

The application of vecInitialValuesPlot[] to the vector field generated in Exam- 
ple A.1.1 delivers three graphs. The graphs represent the three components of the 
vector field u° in the domain J = {(x, y,z) : —3 < x,y,z < 3}. The slice location 
is specified in the last argument of the function (Fig. A.1). The next line shows the 
use of the function 


veclnitial ValuesPlot[ vectorField, {x, —3, 3}, {y, —3, 3}, {z, —3, 3}, 
{z>0,z> ly 


V 


A.1.2 Pressure Potential g 


The pressure p used as gradient in the N—-S equation is also a divergence free 
quantity. The calculation is based on the existence of a potential function g [see 
Eq. (1.14)]. The potential g is derived from the velocity field. The specific relation is 
introduced in Theorem 1.4.1. In turn this results to the solution of Poisson’s equation 
in terms of a convolution integral; see Eq. (1.13). Using Green’s function of the free 
space problem and the potential g allows to derive the divergence free pressure p. 
To initialize such kind of pressure calculations we first need a Mathematica function 
which generates the potential function g. This scalar function g is according to (1.14) 
defined as sum of products of first order derivatives with respect to all coordinates 
and all components of the velocity vector field as follows 


3 3 
sr.) =>) ow (r,duh(r, 0). (A.1) 
j=l k=1 
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Fig. A.1_ The graph shows the three components of a velocity vector field at slices z = 0 (top row) 
andy = 1 


The double summation over coordinates and components is implemented in the 
Mathematica function ghf{]. The input of the function is a vector field of velocities 
and the set of independent spatial variables. The symbolic result generated by ghf] 
is the scalar function g : R* — R representing the potential for the pressure p 
satisfying Ap = —g. Poisson’s equation is equivalent to a convolution integral 
using the potential g and the free space Green’s function G in p = = G(r — 
r’)g(7’)dr’ (see Chaps. | and 3 for details). The explicit implementation of g follows 
next. 

gh(uVec_, indepnd_) := yo 7 (Sei a PETE etl) 
The definition uses directly the definition introduced in Eq. (1.14). The symbol uVec 
represents a three-dimensional vector field of velocities depending on Cartesian 
coordinates. 


Example A.1.4. Ynitial Pressure 

Since the pressure equation is valid for all times we can specifically find the initial 
pressure using the initial velocity vector field u° of Example A.1.1. To this end we 
need to calculate the potential g for the initial vector field. The first argument of gh[] 
is representing the vector field and the second one is a list of coordinate variables as 
given in the next line 


gh( vectorField, {x, y, z}) // Simplify 


84 A Implementation Notes 


Be 2 ty? +2) (x6 (1 4 22?) + x3y (—1 + 2y’) (1 + 227) + 
x4 (—2 — 72? + 224) +? (L- 2 + 224) — xy (- (1-22)? +? (1+ 22°)) + 
y (1-22 4+ 2z4 + y* (1+ 22) + 
y* (-2- 72 + 2z*))) 


The resulting symbolic expression is a polynomial in variables (x, y, z) screened by 
the Gaussian multiplier. 


Vv 


A.1.3 Time Steps 


To initialize the N—S algorithm we need to define a set of mesh points on the time 
axis. This finite set of discrete points is generated by the inverse conformal map on 
a finite interval [0, 7]. The following Mathematica function ty[] generates the M 
Sinc point mesh on the interval [0, 7]. The function uses the inverse conformal map 
Wa»(x) for finite intervals [see definition (A.10)]. The step length Ar is calculated 


internally ashr = 1 / /M. The next few lines represent the function definition. 
tu[ T_, m_] := Block[{ hT}, 
(* —— calculation of step length hy -— *) 


hT = x /./m; 
(*-—— generation of Sinc points —-— *) 
T Ex h’ 
N [ ParallelTable [ee {u,—m, m}]] 


The function uses as input data the end point T of the interval [0, T] and the number 
of Sinc points M. The inverse conformal map is directly implemented for the finite 
interval in the last line of the definition above. 


Example A.1.5. Sinc Points on [0, T] 
The following example generates a list of Sinc points with M = 5 on the time 
interval [0, 1]. 


tu[1, 5] 


{0.000888742, 0.00361208, 0.0145589, 0.0567902, 0.19703, 0.5, 
0.80297, 0.94321, 0.985441, 0.996388, 0.999111} 
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The total number of generated Sinc points is m = 2M + | = 11. According to the 
conformal map in use the discrete Sinc points are nonuniformly distributed on the 
interval [0, T]. 

Vv 


Note, the function ty[] is useful only for numeric calculations. 


A.1.4 Spatial Discretization 


In addition to the temporal initial mesh the N-S algorithm also needs a spatial 
initial mesh for all Cartesian coordinates. Since the initial condition of the velocity 
vector field is given as a continuous function in Cartesian coordinates we need a 
transformation from the continuous (symbolic) representation to a discrete numeric 
one. This transformation is carried out in two steps. The first step is a discrete 
symbolic representation which is converted in the second step to a discrete numeric 
representation. The separation into a symbolic and numeric step becomes beneficial 
specifically in calculating the Cartesian product for the three components and three 
coordinates. This way the calculation can be reduced to a single outer product of 
one and the same discrete index list. 

The function uODiscrete[] converts the symbolic initial vector field u° to a 
symbolic discrete one. The function selects a single component of the vector field 
specified by the symbol dimSelect. The selected component is then transformed 
to a discrete symbolic representation by replacing the continuous variables by an 
index variable and the step length. This set must be repeated for all coordinates. The 
vector field u° must thus be a function of the Cartesian coordinates (x,y,z). The 
selected component is then transformed to a symbolic discrete representation using 
indices j, k, and /, and a step length h. All of these quantities are input variables of 
the function. The function is useful for symbolic as well as for numeric calculations. 
The next lines list these definition in Mathematica. 


u0Discrete[ u_List, dimSelect_, j_, k_, 1, h_] := Block[{ uselect}, 
(* —— select the component specified with dimSelect -— *) 
uselect = Part[u, dimSelect]; 

(* —— continuous variables are replaced by discrete one -— *) 


uselect /.{x — jh, y > kh, z — Ih] 


The next example converts the vector field of Example A.1.1 to a discrete symbolic 
representation. 
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Example A.1.6. Discrete Symbolic Transform 

The discrete symbolic representation for each component is generated as a 
table (list). The running index component selects from the vector field component 
one to three and replaces the Cartesian coordinates by an indexed one using a 
common step length h 


Table[ u0Discrete[ vectorField, component, j, k, 1, h], { component, 1, 3}] 
{ oP P WIP po 2 2 e-PP-PR-WP pA 22, 

eT P WR WP h2k2 _ Ve P We WP hk? 

_2 el P We P re jl +2 el P WR —WP ht 3 i 

Je PW -1PP ppg 4. Qe PP IPP pp i 


We used the symbols j, k, / as index symbols. The result is a discrete representation 
of the initial vector field in a symbolic way. V7 


Example A.1.7. Numeric Transform 

The numeric representation of the vector field needs numeric values for j, k, J, 
and h as shown next. We use the third component of the vector field to get the single 
value 


u0Discrete[ vectorField, 3, 1,2, 3, .7] 


0.00434817 


V 


The function uODiscrete[] is delivering only one component discretized. How- 
ever, we need in a numeric calculation all components. Such kind of discrete 
representation is generated by the following function discreteInitialValue[]. In 
addition, this function generates a special representation specifically useful for 
DFTs dealing with the half values at the boundary of the domain %. 

The function discreteInitial Value[] uses the function u0Discrete[] to generate a 
specific discretization at Sinc points for a specified component of the vector field. 
The selection of the component is based on the variable dimSelect using the values 
1,2, or 3. N specifies the number of Sinc points and h is the finite step length. The 
generated Sinc data are divided by 2 at the end points of the intervals. As mentioned 
in Chap.5 this step is needed in the DFT later on. The following lines show the 
Mathematica definition of the function discreteInitial Value[]. 


discreteInitial Value[ u0_, dimSelect_, n_, h_] := Block[{ indexList, tab1}, 
(* —— generation of an index list -— *) 


indexList = Table[j, {j, —n, n}]; 
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(* —— all permutation of indices are generated by an outer 

product using the index list -— *) 

tabl = 

Chop[N[ Outer[ u0Discrete[ u0, dimSelect, #1, #2, #3, h]&, indexList, 
indexList, indexList]]]; 

(* —— adaption of the endpoints to halve the value —-— *) 
ParallelTable[ If[j == —n||k == —n||/ == —n||j == n||k == n||1 == n, 
Part[tabl,j+n+1,k+n+1,J+n+ 1/2, 

Part tabl,j+n+1,k+n+1,l+n4 I], {j,—n, n}, {k, —n, n}, {1,—n, n}]] 


Example A.1.8. Discrete Initial Values 

The application of the function discreteInitialValue[] to the vector field 
vectorField introduced in Example A.1.1 delivers an array of size 5 x 5 x 5. 
We here used the third component with N = 2 Sinc points and a step length 
h=1/2. 


dU03 = discretelInitial Value[ vectorField, 3,2, 1/2] 


{{{0, 0, 0, 0, 0}, {-0.0395247, —0.0418369, 0, 0.0418369, 0.0395247}, {0, 0, 0, 0, O}, 
{0.0395247, 0.0418369, 0, —0.0418369, —0.0395247}, {0, 0,0, 0, O}}, 
{{—0.0395247, —0.0418369, 0, 0.0418369, 0.0395247}, 

{—0.167348, —0.354275, 0, 0.354275, 0.167348}, 

{—0.107439, —0.227449, 0, 0.227449, 0.107439}, 

{0, 0, 0, 0, 0}, {—0.0395247, —0.0418369, 0, 0.0418369, 0.0395247}}, 
{{0, 0, 0, 0, O}, 

{—0.107439, —0.227449, 0, 0.227449, 0.107439}, {0, 0, 0, 0, O}, 
{0.107439, 0.227449, 0, —0.227449, —0.107439}, {0, 0, 0, 0, O}}, 
{{0.0395247, 0.0418369, 0, —0.0418369, —0.0395247}, {0, 0, 0, 0, O}, 
{0.107439, 0.227449, 0, —0.227449, —0.107439}, 

{0.167348, 0.354275, 0, —0.354275, —0.167348}, 
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{0.0395247, 0.0418369, 0, —0.0418369, —0.0395247}}, 
£40, 0, 0, 0, 0}, {—0.0395247, —0.0418369, 0, 0.0418369, 0.0395247}, 
{0, 0, 0, 0, 0}, {0.0395247, 0.0418369, 0, —0.0418369, —0.0395247}, {0, 0, 0,0, O}}} 


V 


A.1.5 Step Lengths Distribution 


The N-S algorithm uses a specific definition of step length distribution defined in 
Eq. (5.33). This array of step lengths is frequently used in the algorithm. The array 
collects a weighted step length for each of the three indices j, k, / running from 
—N <j, k,1<N. 

The corresponding Mathematica function A[] is generating the geometric 
discrete step length distribution for all j, k, and / using the number of Sinc points NV 
and the common step length h as input data. The listing follows in the next line 


A{n_, h_] :=ParallelTable [-vP +E+E, fj, —n, n}, {k,—n, n}, {, —n, n}] 


The function creates an array of dimension (2N + 1)? containing the different 
discretization lengths. 


Example A.1.9. Discrete Step Length Distribution 
An example is generated in the next line with N = 1 andh = 1/3 


Aft. 4] 


Ngee ay A Sf a a 
2 


va wap te Sf ze aH] 


The result is a 3 x 3 x 3 array with different step lengths at the entries. V 


A.1.6 Discrete Fourier Transform 


One of the essential properties of the current implementation of the N—-S algorithm 
is the use of DFT. The use of the DFT allows replacement of a 4-d convolution 
integral in spatial and temporal coordinates by a 3-d spatial convolution integral. 
The reduction of the integral dimension simplifies some of the calculations and 
speeds up the processing. DFT is basically used in the time developing steps of 
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the algorithm. DFT defined in [7] for a single variable is used here in the extension 
to three dimensions. Contrary to its definition as a matrix operation [7], we use a 
parallel implementation in 3-d which turns out to be faster than the related matrix 
product implementation. 

The function a3DFourier[] contains the 3-d implementation of DFT and calcu- 
lates a 3-d DFT using Sinc points. The 3-d DFT is basically represented by a triple 
sum which can be separated into three calculation steps as follows 


N N 


N 
FEW = YS YL fGhs kh, hye Si VK ei 


j=—N k=—N I=—N 


N N N 
=h > evn SY eh > el % fGh, kh, Ih) 


j=-N k=-N l=-N 
N N 
=h > eh Ye % gh, kh, 0) 
j=—-N k=—N 
N 
=h > ef 'X wh, , 0) (A.2) 
j=—-N 


The product of exponential functions is separated into three chained sums. These 
sums are independent of each other. Thus the summation over a single index can 
be performed independently from the others. The external indices of the discrete 
array can thus be run in parallel. This allows a break up of the triple product into 
three independent sums and a parallel set of framing indices. The speed up of the 
entanglement of the sums and the external frame indices delivers a factor 10 in 
performance. We note that an implementation using only a single ParallelTable[] 
and the three sums included in the framing table needs about ten times longer than 
the break up to three separated parallel tables. The function uses a list of equidistant 
data points assigned to the symbol data. The data points are separated from each 
other by the step length h. The total number of points is m = 2N + 1. The following 
lines define the DFT based on Sinc points. The implementation follows the outline 
of Eq. (A.2) 


a3DFourier[ data_List, h_, n_] := Block[{ v1, v2, v3}, 

(* —— DFT of first coordinate -— *) 

vl = ParallelTable [ Sum [h Part[ data,j+n+1,k+n+1,l+n4 le@7, 
{l, —n, n}], {j, —n, n}, {k, —n, n}, {A, —n, n}]; 

(* —— DFT of second coordinate —— *) 


v2 = ParallelTable [ Sum [h Part[ v1,j+n+1,ktn+1A+n-+ le#, 
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{k, —n, n}], j, —n, n}, {n, —n, n}, {A, —n, n}]; 

(*-—— DFT of third coordinate -— *) 

v3 = ParallelTable [ Sum[h Part[ v2,j+n+1,n+n+1Atn+ le#r, 
{j, —n, n}], {&, —n, n}, {n, —n, n}, {A, —n, n}]; 

Chop| v3] 

] 


The function inverseB3DFourier[] calculates a 3-d discrete inverse Fourier trans- 
form using Sinc points. Similar to the forward DFT function a3DFourier[] for the 
inverse DFT, we split up the 3-d sum in three single summations with a parallel 
frame of indices j, k, 1. 
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The function uses a list of equidistant data points data separated by a step length h. 
The total number of points is again m = 2N + 1 for each index. The following 
implementation uses the representation of Eq. (A.3). 


inverseB3DFourier| data_List, h_, n_] := Block[{ v1, v2, v3}, 

(* —— iDFT of first coordinate —-— *) 

vl= ParalletTable [ Sum [iss Part{ data,j-+n+Ik+n+1J+n4 em, 
{1, —n, n}], i, —n, n}, {k, n,n}, A, —n, ny]; 

(* —— iDFT of second coordinate —— *) 

v2 = ParalletTable [ Sum [am Part{ v1,jtnat lktn+1A+n+ le, 
{k, —n, n}], {j, —n, n}, {n, —n, n}, {A, —n, n}]; 
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(* —— iDFT of third coordinate —— *) 

v3 = ParallelTable| Sum| 3; Part[ v2,j+n+lntnat+lAtn+ le, 
{j, —n, n}], {€, —n, n}, {n, —n, n}, {A —n, n}}; 

Chop| v3] 

] 


Example A.1.10. Discrete Fourier Transform 

The example shows how DFT is applied in the N-S algorithm to a set of initial 
conditions. The next input line uses the discrete data set of Example A.1.8 to 
demonstrate the use of the function. The input data are the discrete data set dU03, 
the step length h = 1/2, and the number of Sinc points N = 2. 


dUo3F = a3DFourier[ dU03, 1/2, 2] 


{££0, 0, 0, 0, 0}, {0, 0, 0, 0, OF, {0, 0, 0, 0, 0}, {0, 0, 0, 0, OF, {0, 0, 0, 0, OF}, 

{40, 0, 0, 0, 0}, {0, 0, 0, 0, OF, £0, 1., 0, —1., 0}, {0, 0, 0, 0, OF, {0, 0, 0, 0, OF}, 
{{0, 0, 0, 0, 0}, {0, 1.,0,—1., 0}, {0, 0, 0, 0, 0}, {0, —1., 0, 1., 0}, {0, 0, 0, 0, OF}, 
£40, 0, 0, 0, 0}, {0, 0, 0, 0, 0}, {0, —1., 0, 1., 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, OF}, 
{40, 0, 0, 0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, OF, {0, 0, 0, 0, OF, {0, 0, 0, 0, OF}} 


The result is a5 x 5 x 5 array containing the Fourier amplitudes of the DFT. 
The inverse DFT uses the same data structure and thus can be directly applied to the 
result stored in dUo3F 


idUo3F = inverseB3DFourier[ dUo3F, 1/2, 2] 


{4£0, 0, 0, 0, 0}, {0, —0.5, 0, 0.5, 0}, {0, 0, 0, 0, OF, {0, 0.5, 0, —0.5, 0}, {0, 0, 0, 0, OF}, 
{{0, 0.5, 0, 0.5, 0}, {0, —1., 0, 1., 0}, {0, —0.5, 0, 0.5, O}, {0, 0, 0, 0, 0}, 

{0, —0.5, 0, 0.5, OF, 

{{0, 0, 0, 0, 0}, {0, —0.5, 0, 0.5, 0}, {0, 0, 0, 0, OF, {0, 0.5, 0, —0.5, 0}, {0, 0, 0, 0, OF}, 

{{0, 0.5, 0, —0.5, 0}, {0, 0, 0, 0, O}, {0, 0.5, 0, —0.5, 0}, {0, 1., 0, —1., 0}, 

{0, 0.5, 0, —0.5, OF}, 

{{0, 0,0, 0, 0}, {0, —0.5, 0, 0.5, 0}, {0, 0, 0, 0, 0}, {0, 0.5, 0, —0.5, 0}, {0, 0, 0, 0, OF}} 


V 
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A.1.7 Spatial Temporal Convolution 


The Fourier transform of a 4-d convolution integral results to a product repre- 
sentation in Fourier space. This product allows a direct calculation if the DFT 
representation and the time representation at Sinc points are known. This simpli- 
fication of the calculation is used in an implementation of the function convol4Df{]. 

The function convol4D[] calculates the convolution product in Fourier space. 
The function uses the discrete initial conditions given as DFT coefficients and the 
Green’s function given by the relation 


b” (A, t) = 7°” (A) exp (—A’er) : (A.4) 


Here A? is the square of the matrix elements Aj, generated by the function A]. 
The time ¢ is replaced by the discrete Sinc points along the time axis generated 
by ty[]. The results of ty[] are stored in the list tt. € is a parameter controlling the 
convergence on the time line. The total number of Sinc points is given by n. The 
array Fu contains the DFTs of the initial conditions u°. The following lines show a 
parallel implementation of the convolution. 


convol4D[ Ab_, tt_, Fu_,¢€_, n_] := Block[f{}, 

(* — convolution of time and initial conditions —— *) 

Chop[ 

( ParallelTable [ Table [ Exp [—e( Ab[[j, k, ]])? tt[[]]] Ful, &, A]. 
{j,1,2n + 1}, {k, 1, 2n + 1}, {, 1,2n + 13], {, 1, Length[ tt], 13) 
] 


Example A.1.11._ 4D Convolution in Fourier Space 

The example uses the data generated in Examples A.1.9, A.1.5, and A.1.8 as input 
data. The data are generated by the related Mathematica functions defined above. In 
addition we use a step length # = 1/2 and the number of Sinc points N = 2. The 
result of the function is an array of dimension (2N + 1)? x (2M + 1). 


convol4D[A[2, 1/2], tu[1, 2], dU03, 0.5, 2] 


{{{{—1.96543, —0.987007, 0, 0.987007, 1.96543}, 
{—1.48051, —0.743489, 0, 0.743489, 1.48051}, 
{—0.988442, —0.49638, 0, 0.49638, 0.988442}, 
{—0.493503, —0.24783, 0, 0.24783, 0.493503}, 
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{0, 0,0, 0, OF}, {{—1.48051, 0.743489, 0, 0.743489, 1.48051}, 
{—0.991319, —0.99565, 0, 0.99565, 0.991319}, 

{—0.49638, —0.498549, 0, 0.498549, 0.49638}, {0, 0,0, 0, 0}, 
{0.493503, 0.24783, 0, 0.24783, —0.493503}}, 

{{-0.988442, —0.49638, 0, 0.49638, 0.988442}, 

{—0.49638, —0.498549, 0, 0.498549, 0.49638}, {0, 0,0, 0, 0}, 
{0.49638, 0.498549, 0, 0.498549, —0.49638}, 

{0.988442, 0.49638, 0, —0.49638, —0.988442}}, 

{{—0.493503, —0.24783, 0, 0.24783, 0.493503}, {0, 0,0, 0, 0}, 
{0.49638, 0.498549, 0, 0.498549, —0.49638}, 

{0.991319, 0.99565, 0, 0.99565, —0.991319}, 

{1.48051, 0.743489, 0, 0.743489, —1.48051}}, {{0, 0, 0, 0, 0}, 
{0.493503, 0.24783, 0, 0.24783, —0.493503}, 

{0.988442, 0.49638, 0, 0.49638, —0.988442}, 

{1.48051, 0.743489, 0, 0.743489, — 1.48051}, 

{1.96543, 0.987007, 0, —0.987007, —1.96543}}}, 

{{{-1.727, 0.89577, 0, 0.89577, 1.727}, 

{—1.34365, —0.696935, 0, 0.696935, 1.34365}, 

{—0.906793, —0.470341, 0, 0.470341, 0.906793}, 

{—0.447885, 0.232312, 0, 0.232312, 0.447885}, {0, 0, 0,0, O}}, 
{{-1.34365, 0.696935, 0, 0.696935, 1.34365}, 

{—0.929247, —0.963974, 0, 0.963974, 0.929247}, 

{—0.470341, 0.487918, 0, 0.487918, 0.470341}, {0, 0, 0, 0, 0}, 
(0.447885, 0.232312, 0, —0.232312, —0.447885}}, 
{{—0.906793, 0.470341, 0, 0.470341, 0.906793}, 
{—0.470341, 0.487918, 0, 0.487918, 0.470341}, {0, 0, 0, 0, 0}, 
{0.470341, 0.487918, 0, 0.487918, —0.470341}, 
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{0.906793, 0.470341, 0, 0.470341, —0.906793}}, 
{{—0.447885, —0.232312, 0, 0.232312, 0.447885}, {0, 0, 0, 0, 0}, 
{0.470341, 0.487918, 0, 0.487918, —0.470341}, 

{0.929247, 0.963974, 0, 0.963974, —0.929247}, 

(1.34365, 0.696935, 0, 0.696935, —1.34365}}, {{0, 0, 0, 0, 0}, 
{0.447885, 0.232312, 0, —0.232312, —0.447885}, 

{0.906793, 0.470341, 0, 0.470341, —0.906793}, 

(1.34365, 0.696935, 0, 0.696935, — 1.34365}, 

{1.727, 0.89577, 0, —0.89577, —1.727}}}, 

{{{—0.944733, —0.569783, 0, 0.569783, 0.944733}, 
{—0.854674, —0.515467, 0, 0.515467, 0.854674}, 

{—0.606531, —0.365808, 0, 0.365808, 0.606531}, 

{0.284891 , —0.171822, 0, 0.171822, 0.284891}, {0, 0,0, 0, O}}, 
{{—0.854674, —0.515467, 0, 0.515467, 0.854674}, 

{—0.687289, —0.829029, 0, 0.829029, 0.687289}, 

{—0.365808, —0.441248, 0, 0.441248, 0.365808}, {0, 0, 0, 0, 0}, 
(0.284891, 0.171822, 0, —0.171822, —0.284891}}, 
{{—0.606531, —0.365808, 0, 0.365808, 0.606531}, 

{—0.365808, —0.441248, 0, 0.441248, 0.365808}, {0, 0, 0, 0, 0}, 
{0.365808, 0.441248, 0, 0.441248, —0.365808}, 

{0.606531, 0.365808, 0, 0.365808, —0.606531}}, 
{{—0.284891, —0.171822, 0, 0.171822, 0.284891}, {0, 0, 0, 0, 0}, 
{0.365808, 0.441248, 0, 0.441248, —0.365808}, 

{0.687289, 0.829029, 0, 0.829029, —0.687289}, 

{0.854674, 0.515467, 0, 0.515467, —0.854674}}, {{0, 0, 0, 0, 0}, 
{0.284891, 0.171822, 0, —0.171822, —0.284891}, 

{0.606531, 0.365808, 0, 0.365808, —0.606531}, 
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{0.854674, 0.515467, 0, 0.515467, 0.854674}, 

{0.944733, 0.569783, 0, 0.569783, —0.944733}}}, 
{{{—0.516805, —0.362428, 0, 0.362428, 0.516805}, 
{—0.543643, —0.38125, 0, 0.38125, 0.543643}, 

{—0.405693, —0.284507, 0, 0.284507, 0.405693}, 

{—0.181214, —0.127083, 0, 0.127083, 0.181214}, {0, 0, 0, 0, O}}, 
{{—0.543643, —0.38125, 0, 0.38125, 0.543643}, 

{—0.508333, —0.712975, 0, 0.712975, 0.508333}, 

{—0.284507, —0.399043, 0, 0.399043, 0.284507}, {0, 0, 0, 0, O}, 
(0.181214, 0.127083, 0, —0.127083, —0.181214}}, 
{{—0.405693, —0.284507, 0, 0.284507, 0.405693}, 

{—0.284507, —0.399043, 0, 0.399043, 0.284507}, {0, 0, 0, 0, O}, 
{0.284507, 0.399043, 0, —0.399043, —0.284507}, 

{0.405693, 0.284507, 0, —0.284507, —0.405693}}, 
{{—0.181214, —0.127083, 0, 0.127083, 0.181214}, {0, 0, 0, 0, 0}, 
{0.284507, 0.399043, 0, —0.399043, —0.284507}, 

{0.508333, 0.712975, 0, 0.712975, —0.508333}, 

(0.543643, 0.38125, 0, 0.38125, —0.543643}}, {{0, 0, 0, 0, 0}, 
(0.181214, 0.127083, 0, —0.127083, —0.181214}, 

{0.405693, 0.284507, 0, —0.284507, —0.405693}, 

(0.543643, 0.38125, 0, 0.38125, —0.543643}, 

{0.516805, 0.362428, 0, 0.362428, —0.516805}}}, 
{{{—0.45411, —0.328926, 0, 0.328926, 0.45411}, 

{—0.493389, —0.357377, 0, 0.357377, 0.493389}, 

{—0.372181, 0.269582, 0, 0.269582, 0.372181}, 

{—0.164463, 0.119126, 0, 0.119126, 0.164463}, {0, 0, 0, 0, O}}, 
{{—0.493389, —0.357377, 0, 0.357377, 0.493389}, 


96 A Implementation Notes 


{—0.476503, —0.690292, 0, 0.690292, 0.476503}, 
{—0.269582, —0.390534, 0, 0.390534, 0.269582}, {0, 0, 0, 0, 0}, 
(0.164463, 0.119126, 0, —0.119126, —0.164463}}, 
{{-0.372181, —0.269582, 0, 0.269582, 0.372181}, 
{—0.269582, —0.390534, 0, 0.390534, 0.269582}, {0, 0, 0, 0, 0}, 
{0.269582, 0.390534, 0, —0.390534, 0.269582}, 
(0.372181, 0.269582, 0, —0.269582, —0.372181}}, 
{{-0.164463, —0.119126, 0, 0.119126, 0.164463}, {0, 0, 0, 0, 0}, 
(0.269582, 0.390534, 0, —0.390534, 0.269582}, 
{0.476503, 0.690292, 0, —0.690292, —0.476503}, 
{0.493389, 0.357377, 0, —0.357377, —0.493389}}, {{0, 0, 0, 0, O}, 
(0.164463, 0.119126, 0, —0.119126, —0.164463}, 
{0.372181, 0.269582, 0, —0.269582, —0.372181}, 
{0.493389, 0.357377, 0, —0.357377, —0.493389}, 
(0.45411, 0.328926, 0, —0.328926, —0.45411}}}} 


Vv 


A.l.8 Since Functions 


This section collects several basic function definitions useful in interpolation and 
integration applications. The basic function we use in all kind of Sinc approxima- 
tions is the scaled Sinc function Sinc(x). Mathematica offers a predefined Sinc[] 
function defined as sin(x)/x. However, Sinc approximations are based on a z scaled 
definition. This means we have to redefine the Sinc function as a scaled version 
according to the definition 


mG) if x ~0 


ON Neg Geen 


(A.5) 


The next line defines the scaled Sinc function, we call it sSinc[]. The scaled version 
is defined in Mathematica as 


sSinc[ x_] := Sinc[zx] 
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The behavior is as expected 


sSinc[x] 


Sinc[zx] 
and the limit approaching to zero 


Limit[ sSinc[x], x > 0] 


1 


Potential applications of the scaled Sinc function are all kind of integrations. An 
indefinite integral is for example useful to approximate integral equations. Integrals 
of special interests here are also convolution integrals. To represent indefinite 
integrals we use the integral of the Sinc function in the following way [5] 


kas k 
o(k) = / OR ee / Siete SiGe (A.6) 
4) TTX 0 IU 


which results to the Sine integral evaluated at rk. Since Mathematica offers the Sine 
integral as a pre-defined function we will make use of this definition to save time in 
integrations. The function of[] uses an upper limit k € Z. The related Mathematica 
definition follows directly from (A.6) as 


o[k_] := SetPrecision[ SinIntegral[zk]/z:, 120] 


We used a high precision representation to keep track with the numerical needs. 
Based on o[] a function e[] is used in the definition of indefinite integrals [5]. The 
function e[] is based on o[] by simply adding 1/2 to the Sine integral. This basic 
definition is given by 


e[ k_Integer] :=5 + o[k] 


Next the function e[] is used to generate a Téplitz matrix mT[]. Téplitz matrices 
are the basis in Sinc methods to represent indefinite integrals. The function mT[] 
uses two integers imax and jmax specifying the maximal dimension of the resulting 
matrix m x n with m = 2imax + 1 and n = 2jmax + 1. The function mT{[] is based 
on e[] and of]. 

The following definition uses a precision of 120 Digit 


mT[ imax_, jmax_] :=N[ Table[e[i — j], {i, — imax, imax}, {j, — jmax, jmax}], 120] 
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Fig. A.2. Toéplitz matrix 


To depict the symmetry properties of Toplitz matrices we use a graphical represen- 
tation of am x m matrix with m = 2N + | and N = 25 (Fig. A.2). The next line 
generates a matrix plot of the Téplitz matrix mT[] 


MatrixPlot[ mT[25, 25], ColorFunction > “Rainbow”] 


It is apparent that Téplitz matrices are by the diagonal divided into an upper and a 
lower triangular part. The diagonal elements have all the same value as well as the 
off diagonal tracks parallel to the diagonal. This becomes obvious if we truncate the 
valid digits from 120 to 3 and form a matrix representation of a smaller dimension. 


N[ mT[2, 2], 3] // MatrixForm 


0.500 —0.0895 0.0486 —0.0331 0.0250 
1.09 0.500 —0.0895 0.0486 —0.0331 
0.951 1.09 0.500 —0.0895 0.0486 
1.03 0.951 1.09 0.500 —0.0895 


0.975 1.03 0.951 1.09 0.500 
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A.1.9 Conformal Maps 


Conformal maps in Sinc methods are used to map discrete points from the real 
line to a domain of interest. The representation of discrete points on an interval are 
generated by mapping the discrete real line to such an interval. These maps allow 
us to use the whole range in R to be mapped for example onto a finite interval. Such 
kind of mappings are extremely useful in practical applications. The advantage of 
these mappings is that the convergence is improved and becomes nearly optimal [8]. 
The conformal map ¢ is invertible with y = #1. So that an equidistant distribution 
of points on R is mapped to a non-equidistant distribution of points on a finite 
interval. Since we are interested to apply this concept not only for finite intervals 
but also for semi-infinite, or infinite intervals we introduce the following definitions 
[5, 7]. 

The next Mathematica function @$[] defines a set of standard conformal maps for 
different domain types. The domains are specified by the endpoints a and b and are 
defined for a finite interval x € (a, b) as 


x-— 


b-— 


dap) = In( ) for x € (a,b) (A.7) 


for a semi-infinite interval x € (a, oo) with a € R+ the conformal map is 


In(x — a) for an algebraic decay at oo 


dxeé , 
In(sinh(x — a)) for an exponential decay atoo “. * (a, 00) 


(A.8) 


Qa.co (x) = 


and for an infinite interval x € (—oo, 00) we have 


00,00 (x) = 


In (v2 +1+ x) for an algebraic decay at + co : 
with x € (—oo, 00). 
x 


for an exponential decay at + oo 
(A.9) 


The conformal map @[] defined below uses as input three arguments and 
one option. The variable x and the two boundary points a and b are mandatory 
input variables. The Mathematica definition of the conformal map combines the 
definitions given in (A.7)-(A.9) in a piecewise defined function. The Mathematica 
function thus is able to decide which type of mapping should be used. This decision 
is based on the boundary values of the interval. 


Options[¢] = { AlgebraicDecay — False}; 


$(x_, a_, b_, OptionsPattern[]) := 


Block[{ algebraicDecay}, algebraicDecay = OptionValue[ AlgebraicDecay]; 
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Piecewise[ 
log (4) —00 <aAb<oo 


. : (0=aAb=o)v 
If [algebraicDecay, log(x — a), log(sinh(x — a))] 


(a>O0Aa<coAb=oo) 
If algebraicDecay, log (v2 +1+ x) | —0 =aAb=0o 


The conformal map is useful for symbolic as well as numeric calculations. @[] 
delivers with its default settings the following functional relations depending on the 
interval limits 


{¢[z, 0, 1], d[z, 0, co], d[z, —00, co]} 


\ Log [| , Log[Sinh[z]], a 


If we set the option AlgebraicDecay to True, the same input line in Mathematica 
delivers the result for an algebraic decay at infinity. 


SetOptions[¢, AlgebraicDecay > True] 


{ AlgebraicDecay — True} 


Then the generated functions for the semi-infinite and infinite interval changes to 


{olz, 0, 1], olz, 0, oo], lz, 66: oo}} 
\ Log [5] , Log[z], Log [: de vi+2} 


In a numerical application the conformal map @[] delivers depending again on the 
interval limits numerical values for these functions. The following line demonstrates 
this for a finite interval with rational and real-valued numbers 


{¢[4,-1, 1], ¢[0.3,-1, 1} 


{ Log[3], 0.619039} 


The inverse conformal map Wa,(x) = $7, ' (x) is also defined as a piecewise function 
for the different interval types. The corresponding map is selected according to the 
specified boundary points a and b. In the definition given below three standard 
domains are implemented: a finite, a semi-infinite, and an infinite domain with 


algebraic or non-algebraic decay. The definitions are as follows 


be* 
Vap(x) = ———— x for x € (a,b) (A.10) 
, 1+e* 
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for a semi-infinite interval x € (a, oo) with a € Ry the inverse conformal map is 


+ e for an algebraic decay at oo 


a 
for x € (a, 00), 
log (v ert +1+ert a) for a non-algebraic decay at oo CEA N00) 


Wa,oo(x) = 


(A.11) 
and for an infinite interval x € (—oo, 00) we have 


sinh(x) for an algebraic decay at + oo 
x for an exponential decay at + oo 


W—c0,00 (x) = 


for x € (—0o, oo). 


(A.12) 
The function w[] uses three arguments which are mandatory: the variable x and the 
two boundary points a and b. A fourth optional argument can be used to select the 
algebraic decay for large arguments. Again we define w[] as a piecewise function 
in the following lines. 


Options[y] = { AlgebraicDecay — False}; 


v(x_, a_, b_, OptionsPattern[]) := 
Block[{ algebraicDecay}, algebraicDecay = OptionValue[ AlgebraicDecay]; 
Piecewise[ 


atbe* = 
41 co <aAb<oo 


(0=aAb=oo)v 
If algebraicDecay, a + e*, log (ve i een 
(a>0Aa<wAb=on) 


If [algebraicDecay, sinh(x), x] —00 =aAb=oo 
I] 


The inverse conformal map is useful for symbolic as well as for numeric cal- 
culations. It delivers with its default settings the following functional relations 
depending on the interval limits 


{y[w, 0, 1], y[w, 0, co], w[w, —co, oo]} 
{re Log [e" + VI+ 2] wi 
If we set the option AlgebraicDecay to True 


SetOptions[y, AlgebraicDecay —> True] 


{ AlgebraicDecay — True} 


Then the generated functions for the semi-infinite and infinite interval change. 
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{w[w, 0, 1], ¥[w, 0, co], ww, —c0, oo}} 


(rear e”, Sinh[w}} 


In a numerical application the inverse conformal map function w[] delivers accord- 
ing to the interval limits numerical values for these functions. The inverse conformal 
map specifically is used to generate the Sinc points in numerical calculations. The 
following example demonstrates the use for a finite interval with rational and real- 
valued numbers 


{v [4,-1,1], ¥[0.3,-1, 1} 


{0.148885} 


A sequence of Sinc points m = 2N + | with N = 3 on the interval z € [—1, 1] is 
generated as follows 


zk = Table[y[kh, —1, 1], {k, —3, 3}] 


de 2k ee le cake Ake Site? 
I+e73h > [pe72h > [femh 2 [Heh > TH e2h > 1H e3h 


The result is a sequence of symbolic expressions containing h, the step length, as an 
arbitrary parameter. If we specify the step length by h = x / VN we will get for 
the same setup 


zk = Table [v [xx /v3 all, 1] {k,-3, 33] 


— 2m. eee 
jos V3" _14+e V3 -I+e V3 0 


peat 2 
lteV3 -1teV3 -1+ev3" 
l+e—V32 ” Vi 


| 
ar 7 —- 719”) a) 2a} z 
Ite V3. Ite V3 Ite V3 Ite v3 ibe 


or in floating point representation 


N[zk] 


{—0.991371, —0.948217, —0.719641, 0., 0.719641, 0.948217, 0.991371} 


The following helper function pf] is the exponential of a conformal map. The func- 
tion is used in the representation of the basis in Sinc approximations. The function 
uses three arguments with the same meaning as for a conformal map. 


p(x_, a_, b_) :=e%@4) 


The next lines show the application of conformal maps. Let us start by selecting the 
map ¢ for a finite interval [a, b] = [0, oo]. The map function ¢[] is then used as 


(x, 0, 00) 
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log(x) 


It delivers the analytic expression for the conformal map. The inverse conformal 
map for the same interval works for symbolic discrete values x; = kh as follows 


w (hk, 0, 1) 


eltk 
elk] 


The generated function is a combination of exponential functions using the discrete 
values k and the step length / in the representation. The exponential version of the 
conformal map p,,(x) delivers the exponential representation of ¢ as follows 


p(x, —oo, 00) 


x+VJSx?2 +1 


A.1.10 Basis Functions 


To represent an approximation of a function f(x) by shifted Sinc functions, we define 
a set of basis functions [5]. This set of shifted Sinc functions establishes the basis of 
a Sinc approximation. The following Mathematica function yf[] is the generator of 
the basis. The symbolic expression behind the generator is 


Va bj, h) © ban(x) = Sine ((ba.4(x) —jh)/h) = SG, h) o hao(x). (A.13) 


The basis function y uses five input arguments: the independent variable x, 
the shifting index j, the step length h, and the boundary points a and b. The 
Mathematica definition y[] uses these dependencies as input data. The next line 
defines the basis y[] 


y[x_, j.. h_, a_, b_] :=sSinc[(@[x, a, b] —jh)/h| 


We generate the set of basis functions by a variation of the shifting index j in the 
range —N < j < N. A useful Mathematica function to generate the set is the 
function Table[]. 


Example A.1.12. Sinc Basis Set 
AS a specific example we use N = | and keep the boundaries a and b arbitrary 


Table[y (x, j, h, a, b), {j, -1, 1}] 
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log (=) —00 <aAb<oo 


(0O=aAb=o)v 
sinc | 2 { log(x — a) +h], 
(a>O0Aa<@wAD=c) 


log (x + vx? ¥1) -—o =aAb=oa 


log (=) —00 <aAb<oo 
(0O=aAb=o)v 
sinc | 7 | { log(x—a) , 
(a>0Aa<@wALD=c) 
log (x + Vx? ¥1) -c0 = aAb = 00 
log (=) —00 <aAb<o 
(0=aAb=o)v 
sinc | 7 { log(x — a) —h 


(a>0Aa<wALD=cn) 
log (x + vx? +1) -—o0 =ahb=oa 


Since the interval [a, b] is not specified the conformal map is inserted in the basis 
functions as a piecewise defined function. This behavior allows us to set up an 
approximation independent of the specific interval. 


Vv 


In some cases the shifted Sinc basis is altered at the end points to adapt the 
boundary conditions in a better way. The next function we introduce represents a 
piecewise representation of the basis function for Sinc approximation. The function 
is defined for the end points at M and N in a special way and uses for the internal 
points the definition introduced by y,.,(j, 2) 0 (x) in Eq. (A.13). Specifically such an 
altered basis is given by 


mo Vee ma a Vab(k h) © (x) ifj = —M 


+ p(z) 
ONG WO()= 4 Vab(j.h) © (x) ifj= —M+1,...,N-1 
z = ohh . be 
an i~ Tran Ya, hyo(x) iff=N. 
(A.14) 


In addition to y the function omegaf[] uses special expressions for the first and last 
Sinc point of the approximation to accommodate the boundary properties in a more 
effective way. This means @ uses a piecewise defined function for the smallest and 
largest integer number M and N, and the bulk points in between. The Mathematica 
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definition is given next omega( x_, k_, h_, a_, b_, Mx_, Nx_):= 


y(x, k, h, a, b) 1— Mx<k< Nx-1 
: . 1 Nx y(x,j,h,a,b) — 
Piecewise SGaSyH — Ljmi—x Se k = — Mx 
p(xab) yo Nx-1_ eM y(uj.ha,b) k= Nx 


p(x,a,b)+1 j=— Mx ~ +1 


The next example demonstrates the application of the adapted Sinc basis to different 
types of domains. 


Example A.1.13. Adapted Sinc Basis Set 

A typical application of omega[] to the input data with N = M = 2, an interval 
x € [-1, 1], but still a symbolic step length h, delivers the basis set. The basis for 
such a set of input data is then generated using Mathematic’s function Table[] as 


basis = Simplify[ Table[ omega(x, k, h, —1, 1,2, 2), {k, —2, 2}]] 


5 | = sine (0) an (“OaCi=D) 


h eh@+] 


nie) ) aa ein) ) 


e+] > echt] —x+1], 


rlog(+#1) (1og( 


i =a (ae =), 


5 a Se, = an(? “Ce ate) 2sin( steel) 
2 


sinc 


et +1 e+] 


Med) 
=, on] txt 


The same basis on a semi-infinite interval x € [0, 00) is 
basis = Simplify[ Table[ omega(x, k, h,0, 00, 2,2), {k, —2, 2}]] 


( m(log(x)—h) h x(h+log(x)) a ( mlog(x)—2h) 
ae mlog(x)\ _ sinc( #2ee)—") ) = et sinc( #¢tee) ) a sinc( #028) ) * 
2 h e+] eh] cht] x+1? 


sinc (pee) , sinc (2) | sinc (zee) 


1. (logy) et sine( 2289) sine AAP) sine ( #AHH a) ) 
5 sinc ( h ) 7 e+] = e+ a ony + +41 
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and if we have a non-algebraic decay we set 


SetOptions[¢, AlgebraicDecay — False] 


{ AlgebraicDecay > False} 
The corresponding basis becomes 


basis = Simplify[ Table[ omega(x, k, h, 0, 00, 2, 2), {k, —2, 2}]] 


i 7 (log(sinh(x))—A) fic x(h+log(sinh(x))) 
—1 gine ( Zlog(sinh@) ) _ sinc( deen) = ) _ oh sinc 2@-tlea(siht) ) 
2, h ei+1 hy] 


sinc( Gogh) 29) ) 


1 
eh+] + sinh(x)+1’ 


see ( =eteatsinht ne ( x log(sinh(x)) ) ane ( m(log(sinh(x))—A) ) 
h ’ h ’ h y 


h os .{ mllog(sinh(x))—A) a ( mhtlog(sinh(x))) 
ak sinc z log(sinh(x)) \ __ e sinc ( teats) ) _ sinc( #@-ree(sinhi) ) 
2 h eh+1 ayy 
ee m(2h-++log(sinh(x))) 
sine( ee) sinh(x) 
aa sinh(x)-+ 1 


Vv 


The following example demonstrates in short how a general Sinc approximation is 
setup. 


Example A.1.14. Sinc Approximation 

A general Sinc approximation uses a dot product of the expansion coefficients f, = 
F(z) with the basis set. For this example we used a non-algebraic decay of the 
conformal map at oo which is equal to the basis generated in Example A.1.13 


Table [f (zx) , {k, —2, 2}] . basis 


f () sine (22eGh) ) LG) sine ( Wosinhio—0 ) 


‘ m(h+log(sinh(x))) 
+f (z-1) sine (<etegsnht) 


sinc( m(og(sinh(s))—h) ) a(e-Flog(sinh(x))) ) 


el sine( 


. log(sinh 
+f (z-2) -3 sinc ( ae ©) ~ e+] ~~ et +1 


sine( 


(log(sinh(x))—2h) ) 
h 1 
e2ht] + sinh(x)+1 


ot sinc( 7 (log sinh) 1) ) sine( 2 (h-Flog (sinh) ) 


eh] ~ eh] 


+f a) (= sine (sation) 


sink ( sciepingmi) | Pre 
h sinh(x 
_ ent] + sinh(x)+1 
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where f(z.) with —N < k < WN are the unknown expansion coefficients of 
a function f. Such kind of representations can be directly used in symbolic 
calculations in connections with approximations. 

V 


A.l.11 Laplace Transform 


Laplace’s transform is essential in the calculation of Sinc convolution integrals. The 
use of this transform in connection with one-dimensional approximations goes back 
to Lubich [3, 4]. Here, we will use a 3-d version of the Laplace transform in a 
slightly different way [5]. The main application of Laplac’s transform is the discrete 
representation of the convolution kernel. If the symbolic representation of a Laplace 
transform is known the discrete representation uses the eigenvalues of the Téplitz 
matrices introduced above. If a symbolic Laplace transform of the kernel is not 
known a numeric representation via Sinc approximations can be used [1, 2]. A three- 
dimensional Laplace transform of a function f for our applications is defined as 
follows 


Lf (x,y, 2) = F(s,t,u) = i i} 1 “fey, ze sete wdzdydx. (A.15) 
oO 0 0 
The discrete version of the Laplace transform uses the representation [5] 
F(s,t,u) ~ F (situ) with -N<ij,k<N (A.16) 


where sj, t;, and u, are the eigenvalues of hI) DQ/¢') = Am, so that A, = 
X.D (s;) .X—! is a diagonal representation of the eigenvector matrix and the corre- 
sponding eigenvalues. If .¥ is not explicitly known, then the values ¥ (s;) for each 
dimension can be approximated to arbitrary accuracy via use of Sinc quadrature 
applied to the “Laplace transform” integral (see [5, Sect. 1.5.7]). 

The implementation of the 3-d Laplace transform uses the outlines given in 
Chap. 5. The following function generates a discrete representation of this Laplace 
transform based on the eigenvalues of the used discrete approximation. The function 
laplaceTransform3D[] uses a symbolic representation assigned to the variable ItIn 
representing the integrand of the Laplace integral. The continuous Laplace variables 
are replaced here by their discrete eigenvalues in each direction. Since the Laplace 
variables are independent from each other such kind of operation can be performed 
in parallel. 


laplaceTransform3D| ItIn_, eigenValuesX_, eigenValuesY_, eigenValuesZ_] := 
Block[{t, s,u, IT, mX, precissionGoal = 120}, 
IT = Ith; 
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(* —— replacement of Laplace variables by Eigenvalues —— *) 

mX = 

SetPrecision[ 

ParallelTable[ 

IT /.{s + eigenValuesX|[j]],t—> eigenValuesY|[k]],u — eigenValuesZ|[/]]}, 
{j, 1, Length[ eigenValuesX]}, {k, 1, Length[ eigen Values Y]}, 

{i, 1, Length| eigenValuesZ]}], precissionGoal]; 


mX 
] 


For the function defined above it is important to know the explicit representation 
of the Laplace transform of the kernel. In our application the kernel is given by 
the free space Green’s function G = 1/(47r) with r = J/x?+y?+ 2. The 
following section introduces the explicit representation of the Laplace transform 
for this kernel. 


A.1.12 Free Space Green’s Function for Poisson’s Equation 


The next three Mathematica functions implement the Laplace transform of the 
Green’s function G = 1/(4zr) on R?. The functions are set up using the integration 
algorithm given in [7]. 

The first function Qfunc[] is used as one of the functions to generate the Laplace 
variables. The function Qfunc[] is a helper function implementing the properties of 
Theorem 2.4.1 of [7]. The function uses a single in general complex argument to 
distinguish between the different domain properties of its argument. The main point 
of Theorem 2.4.1 is that the complex plane is partitioned into different sub-domains. 
These regions are each assigned to an analytic expression as follows 


Qfunc( a_) := Block[{ rEa, iMa, La}, rEa = R(a); 
iMa = S3(a); 
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La = iMa+ rEa—1; 


fore) a=1Va=i 
log (| =*|) + i (2 — arg (S*#)) Jal < 1A La>0 
Piecewise log (| =4|) + ix La=0A |a| <1 ; 
log (| =4|) + ¥ La>0A |a| =1 
log (==) True 


The function lapTrInvR2[] is a second helper function linked to the function 
Qfunc[]. The function uses two arguments and generates the main terms of the 
Laplace transformed Green’s function. The definition is implementing the more 
effective version of the Laplace transform where the standard Laplace variables are 
replaced by its reciprocals. 


lapTrInvR2[ u_, v_] := Block[{ lam, zeta, G1}, 


lam =  (z3 + 32): 
is ey cae 2; 
G1 = = ( Qfune[i * zeta] — Qfunc[—i * zeta])]; 


The actual setup of the Laplace transform for the free space Green’s function of the 
Poisson equation is compiled in the following function lapTr3Poi[]. The function 
uses the three Laplace variables in standard notation. The Laplace representation of 
Green’s function is generated by using the functions lapTrInvR2[] and Qfunc[] to 
set up the definition consisting of three terms plus a pre-factor. 


lapTr3Poi[ u_, v_, w_] := Block[{ H1, H2, H3,R, G1}, 
H1 = lapTrInvR2[v, w]/u; 

H2 = lapTrInvR2[w, u]/v; 

H3 = eae v|/w; 

R=44+454+54: 

Gi=} (@ + curt]; 


The application of the function to the three Laplace variables delivers a general 
analytic expression for the Laplace transform of the free space Green’s function. 
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lapTr3Poi(s, t, u); 


We suppress the huge symbolic output here. If we are interested in numerical values 
as in convolution integral representations the function delivers a complex number 


lapTr3Poi[.1, .2, 1 + i] 


0.00362125 + 0.00109769i 


A.1.13 Convolution Integrals 


The Mathematica function discussed in this section implements a 3-d convolution 
integral of the following form 


bpd PF 
ieaae / / / G(r — rex’, 2)dx’dy' dz’ = I. (A.17) 


where G represents the Green’s function and g for example is the right-hand side 
of the Poisson equation Ap = —g. The intervals [a, b], [c,d], and [e,f] may be 
finite or infinite. The algorithm for the one-dimensional case is described in [6]. 
The higher dimensional algorithm is discussed in [7].The following function uses 
this algorithms for the 3-d case. The idea basically is the representation of the 3-d 
convolution integral by eight different variations of indefinite convolution integrals. 
Symbolically this can be written as 


fe | ‘ / : | ' MEH OCU 2 nacaniete 
+/ [ [ s6-n00G00.».2.8 nwranatat 
n i ° | : 1 “ g(€.n,«)G(x.y, 2&7, K)dndéde 
: : | : | CROC acuta ondine 
+ / . | ‘ i ” al. n.e)Gle,y. 2.8, n.e)dndbde 


+f / " eG. 1.0G(y, 2.6, 2, wand 
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+ [f fe 7, K)G(x, y, 2, & 0, K)dnd&dk 


x ed Zz 
+ / / / a(n, K)G(x, y, 2, €,n, K)dndEdk 
=Q,+Q.+ 03+ Q4+ O5 + Oo + Q7 4+ Qs. (A.18) 


The method of approximation is discussed in [6] for the one-dimensional case. 
However, the approach for the higher dimensions is exactly the same due to the 
factorization of the Laplace transform. The basic idea is that the convolution integral 
I splits to several indefinite convolution integrals representing in total the original 
integral. The indefinite convolution integrals are approximated by using the spectral 
properties of the collocation matrices of indefinite integrals in connection with the 
Laplace transform of the related Green’s function. The steps of implementation 
follow directly the discussion given in [6, 7]. 

The function convolutionIntegrals3DS[] calculates the 3-d convolution integral 
given in (A.18). To perform the calculation the following input data are needed. First 
the analytic expression of g is required, second the intervals and their coordinate 
symbols are needed in the form {x;, a;, b;} with i = 1,2,3. The third set of input 
data is related to the number of Sinc points in the three different directions M,, M,, 
and M,. The final parameter is the “width” d to adapt the step length / to an optimal 
value of the properties of conformal maps. We note that the current implementation 
is based on the symbolic Laplace transform of the free space Green’s function. If 
there is a need to carry out calculations for other types of Green’s functions the 
specific location in the function must be changed. The next few lines show the 
implementation. The comments added indicate the steps carried out in the sequel 
of calculation. 


(* —— determine the convolution integrals —— *) 

(Hf fea (|r -7]) ae.y,d)dealae’ --— *) 

(* —— g is a given function — — *) 

convolutionIntegrals3DS[ gIn_, { varx_, ax_, bx_}, { vary_, ay_, by_}, 

{ varz_, az_, bz_}, Mx_, My_, Mz_, d_] := 

Block[{ minpara, w1, k01, Nx, Ny, Nz, hx, hy, hz, sincPointsX, sincPointsY, 
sincPointsZ, DmatX, DmatY, DmatZ, AmX, AmY, AmZ, BmX, BmY, BmZ, 
evalAX, evalAY, evalAZ, evecAX, evecAY, evecAZ, XAX, XAY, XAZ, XinAX, 
XinAY, XinAZ, evalBX, evalIBY, evalBZ, evecBX, evecBY, evecBZ, XBX, 
XBY, XBZ, XinBX, XinBY, XinBZ, lapA, lapB, hMat, FA, FB, gSincX, 
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gSincY, pk, qk, papp, qapp, basis, localKernel, a, kO, ItIn, uv, v, 
precissionGoal = 120, pmat0, pmatl, px, equationl, equation2, 


equations, solution, H, IpG, s,t,G, sincPointsXY, Q, HO}, 


LaunchKernelsj]; 


(*—— fix parameters -— *) 


Nx = Mx; 

Ny = My; 

Nz= Mz; 

BES ane? 

hy = ayy? 

hz = Jane 

(*-—— generate Sinc points for x, y, and z directions —-— *) 


sincPointsX = SetPrecision{ Table[y[k hx, ax, bx], {k, - Mx, Nx}], 
precissionGoal]; 

sincPointsY = 

SetPrecision[ Table[y[k hy, ay, by] /. varx ->y[k hx, ax, bx], {k, — My, Ny}], 
precissionGoal]; 

sincPointsZ = 

SetPrecision|[ 

Table[y[k hz, az, bz] /.{ varx ->y[k hx, ax, bx], vary ->w[k hy, ay, by]}, 
{k, — Mz, Nz}], precissionGoal]; 

(*-—— generate the discrete representation of the functiong 

at Sinc points —-— *) 

gSincX = Map|( gin /. varx ->#)&, sincPointsX]; 

(* —— x direction along the row —— *) 

gSincX = Map|( gSincX /. vary ->#)&, sincPointsY]; 
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gSincX = Map|( gSincX /. varz ->#)&, sincPointsZ]; 
px = gSincX; 
(* —— Green's function used as kernel —— *) 
= ae 
(* —— Stengers Formula for the Laplace transform of G—— *) 
IpG = lapTr3Poi{[s, t, u]; 
(* —— spectral properties of collocation data —— *) 
(* —— diagonal matrix forl/¢’ numeric —— *) 
DmatX = 
SetPrecision[ 
DiagonalMatrix [ Map [(N [1 /0 varx@[ varx, ax, bx] /. varx — #]) &, 
sincPointsX]], precissionGoal]; 
DmatY = 
SetPrecision[ 
DiagonalMatrix[ 
MapThread [(N [1/8 vary[ vary, ay, by] /.{ vary > #2, varx > #1}]) &, 
{ sincPointsX, sincPointsY}]], precissionGoal]; 
DmatZ = 
SetPrecision[ 
DiagonalMatrix[ 
MapThread[ 
(N [1 /0 varz@[ varz, az, bz] /.{ varz > #3, vary > #2, varx > #1}]) &, 
{ sincPointsX, sincPointsY, sincPointsZ}]], precissionGoal]; 
(*-—— matrixA,,-— *) 
AmxX = SetPrecision| hx mT[ Mx, Nx]. DmatX, precissionGoal]; 
AmY = SetPrecision[ hy mT[ My, Ny]. DmatY, precissionGoal]; 
AmZ = SetPrecision[ hz mT[ Mz, Nz]. DmatZ, precissionGoal]; 
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(*—— matrixB, —— *) 

BmX = SetPrecision[ hx Transpose[ mT[ Mx, Nx]]. DmatX, precissionGoal]; 
BmY = SetPrecision[ hy Transpose[ mT[ My, Ny]]. DmatY, precissionGoal]; 
BmZ = SetPrecision[ hz Transpose[ mT[ Mz, Nz]]. DmatZ, precissionGoal]; 
(* —— Eigenvalues and Eigenvectors of MatrixA,,-—— *) 

{ evalAX, evecAX} = SetPrecision[ Eigensystem[ AmX], precissionGoal]; 
XAX = Transpose[ evecAX]; 

XinAX = Inverse[ XAX]; 

{ evalAY, evecAY} = SetPrecision| Eigensystem[ AmY], precissionGoal]; 
XAY = Transpose[ evecAY]; 

XinAY = Inverse[ XAY]; 

{evalAZ, evecAZ} = SetPrecision| Eigensystem[ AmZ], precissionGoal]; 
XAZ = Transpose[ evecAZ]; 

XinAZ = Inverse[ XAZ]; 

(* —— Eigenvalues and Eigenvectors of MatrixB,, —— *) 

{ evalBX, evecBX} = SetPrecision[ Eigensystem[ BmX], precissionGoal]; 
XBX = Transpose[ evecBX]; 

XinBX = Inverse[ XBX]; 

{ evalIBY, evecBY} = SetPrecision[ Eigensystem[ BmY], precissionGoal]; 
XBY = Transpose[ evecBY]; 

XinBY = Inverse[ XBY]; 

{ evalBZ, evecBZ} = SetPrecision[ Eigensystem[ BmZ], precissionGoal]; 
XBZ = Transpose[ evecBZ]; 

XinBZ = Inverse[ XBZ]; 

(* end of spectral part *) 

(*—— indefinite integrals -— *) 

(* —— first integral -— *) 
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(* —— integral of the type QU = f f? J g(&.0.«)G(x,y. z.€. 0, «)dndédk —— *) 
Print| “— integral of the type Q1”]; 

pmat0 = SetPrecision[ matrixConvollnt[ px, XinAZ, XinAY, XinAX, IpG, 
evalAX, evalAY, evalAZ, XAX, XAY, XAZ], precissionGoal]; 

(*—— integral of the type Q2 = f? f? 7 a(&. 0, «)G(x,y, z,& n, «)dnd&dk -— *) 
Print[ “— integral of the type Q2”]; 

pmat0 = 

pmat0 + SetPrecision| matrixConvolInt[ px, XinAZ, XinAY, XinBX, lpG, 
evalBX, evalAY, evalAZ, XBX, XAY, XAZ], precissionGoal]; 

(*—— integral of the type Q3 = ff) fz g(E,.n, «)G(x, y, z, §, 9, K)dndédx -— *) 
Print| ““— integral of the type Q3”]; 

pmat0 = 

pmat0 + SetPrecision[ matrixConvolInt| px, XinAZ, XinBY, XinBX, IpG, 
evalBX, evalIBY, evalAZ, XBX, XBY, XAZ], precissionGoal]; 

(#—— integral of the type Q4 = J-’ f} J?’ 8(E.n. «)G(x, y. zn, «)dndfde —— *) 
Print| ““— integral of the type Q4”]; 

pmat0 = 

pmat0 + SetPrecision| matrixConvolInt[ px, XinBZ, XinBY, XinBX, IpG, 
evalBX, evalBY, evalBZ, XBX, XBY, XBZ], precissionGoal]; 

(#—— integral of the type Q5 = ff’ JP 8(6. 7, «)G(x,y,2,§, 0, «)dndédk —— *) 
Print| ““— integral of the type Q5”]; 

pmat0 = 

pmat0 + SetPrecision[ matrixConvolInt[ ox, XinBZ, XinBY, XinAX, IpG, 
evalAX, evalBY, evalBZ, XAX, XBY, XBZ], precissionGoal]; 

(* —— integral of the type Q6 = J f? ” g(E.n.K)G(x,y, 2, €,n, K)dndédx —— *) 
Print[ “— integral of the type Q6”]; 

pmat0 = 
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pmat0 + SetPrecision| matrixConvolInt[ px, XinBZ, XinAY, XinAX, lpG, 
evalAX, evalAY, evalBZ, XAX, XAY, XBZ], precissionGoal]; 

(*-— integral of the type Q7 = ff? J g(E.n,«)G(x,y,z, 8,0, K)dndédx —— *) 
Print| “— integral of the type Q7”]; 

pmat0 = 

pmat0 + SetPrecision[ matrixConvolInt[ ox, XinBZ, XinAY, XinBX, lpG, 
evalBX, evalAY, evalBZ, XBX, XAY, XBZ], precissionGoal]; 

(*—— integral of the type Q8 = ff)’ fz a(&. 7, «)G(, y, 2, n, «)dnd&de -— *) 
Print[ “— integral of the type Q8”]; 

pmat0 = 

pmat0 + SetPrecision| matrixConvolInt[ px, XinAZ, XinBY, XinAX, IpG, 
evalAX, evalBY, evalAZ, XAX, XBY, XAZ], precissionGoal]; 


(* end of indefinite integral part *) 


(* —— create the basis —— *) 

basisX = Table[y[ varx,k, hx, ax, bx], {k, — Mx, Nx}]; 

basisY = Table[y[ vary,k, hy, ay, by], {,-—- My, Ny}]; 

basisZ = Table[y[ varz,k, hz, az, bz], {k, —-Mz, Nz}]; 

(*—— sum up the terms -— *) 

apprX = ParallelSum[ pmatO[[j + Mx +1,k+ My +1,/+ Mz-+ 1]] 

basisX[[j + Mx + 1]] basisY[[k + My + 1]] basisZ[[/ + Mz + 1]], 

{j,— Mx, Mx}, {k, — My, My}, {7,— Mz, Mz}]; 

(*-—— function representation -—— *) 

jxApr = Piecewise[{{ apprX, ax < varx < bx&& ay < vary < by&& az 
< varz < bz}}]; 

(* —— genratea pure function representation —-— *) 

solution = 


{p — SetPrecision[ Apply[ Function, {{ varx, vary, varz}, $jx}] /. $jx — jxApr, 
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$MachinePrecision], sincPointsX, sincPointsY, sincPointsZ, px, 
{ varx, ax, bx}, { vary, ay, by}, { varz, az, bz}}; 

(* —— shut down kernels —— *) 

CloseKernels|]; 

(* return results *) 

{ apprX, solution} 

] 


In the following application of convolutionIntegrals3DS[] we combine some of the 
functions discussed in the previous examples. 


Example A.1.15. 3-d Convolution Integral 
The example demonstrates how to solve the initial pressure problem introduced at 
the beginning of the Appendix. The example is related to the Poisson problem 


Ap = -g (A.19) 


which is equivalent to a convolution problem for a given function g (see Eq. 1.13). 
To start with let us first generate the function g derived from a divergence free 
vector field as initial condition. The initial condition is generated as discussed in 
Example A.1.1 


vVectorField = initialValueSelection [are ty42) wet +2 )] 


a a ee 
{e xy —Z x2 eX -Y—% x72", 
Sa ee 
ee Ty y? Vek -% y2’, 
2g 2.22 2_.2_ 2 2_,.2_ 2 
—2e* xXZ+ 2e* ys xz —2e* y% YZ + 2e * ys yeh 


The graph of the components are shown in Fig. A.3. The plot shows a grid of 
sections for the initial velocity vector field. 


veclInitial ValuesPlot[ vVectorField, {x, —3, 3}, {y, —3, 3}, {z, —3, 3}, 
{z+ 0,z— ly > 0}] 


The derived vector field can be used to generate the potential function g. We use the 
function gh[] and apply it to the above field to get 


potentialG = gh[ vVectorField, {x, y, z}] // Simplify 
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Fig. A.4 Potential g for the pressure 


Be AQ ty*+2") (x6 (1 + 222) + x3y (—1 + 2y) (1 + 222) + x4 (-2 — 72? + 224) 
+ x? (1-2? + 22’) -ay(-(1 — 222)" 
+y? (1 + 22*)) +’ (L—2 + 224 + y4 (1+ 227) + ¥ (-2—72 + 22*))) 


The graphical representation of g is shown in Fig. A.4 generated by the following 
Mathematics commands 
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Plot3D[ Evaluate[ potentialG /.z — 0], {x, —3, 3}, {y, —3, 3}, PlotRange > All, 
AxesLabel > { x, y, g}, PlotLabel — “g at z=0”, ColorFunction > “Rainbow”, 
PlotPoints — 25] 


In the next step we apply the Sinc convolution to the derived potential g. The 
convolution integral using the free space Green’s function delivers an approximation 
of the initial pressure for the N—-S equation. We use N = 24 Sinc points for the 
calculation on the total space R*. For an optimal convergence we choose d = 2/3 
to adapt the step length accordingly. 


pressure = convolutionIntegrals3DS| potentialG, {x, —0o, 00}, {y, —0o, co}, 
{z, —00, 00}, 24, 24, 24, 2/3]; 


— integral of the type Q1 
— integral of the type Q2 
— integral of the type Q3 
— integral of the type Q4 
— integral of the type Q5 
— integral of the type Q6 
— integral of the type Q7 
— integral of the type Q8 


Figure A.5 shows a 3-d representation of the Sinc convolution result for the pressure. 
The plot in Fig. A.5 was generated using the following line 


Plot3D[ Evaluate[ Re[(p[x, y, z] /. First[ Last[ pressure]]) /.z — OJ], 
{x, —6, 6}, {y, —6, 6}, ColorFunction > “Rainbow”, AxesLabel — { x, y, p}, 
PlotPoints — 45, PlotRange — All, PlotLabel — “p at z=0, d=2/3, N=24”] 


The above calculation steps demonstrate that the derivation of a Sinc convolution 
is straightforward. The calculation needs only the potential function g as an analytic 
representation. The graph in Fig. A.5 demonstrates that the resulting approximation 
is smooth. 


V 


The above defined function convolutionIntegrals3DS[], although useful and 
effective, needs some adaption to the N-S algorithm. The N-S algorithm uses 3-d 
convolutions many times. It is thus beneficial to optimize the calculation for this 
frequent application of the convolution integral. The next few sections describe how 
the Sinc convolution is adapted to these issues. 
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A.1.14  Splitted Convolution Integrals 


The effective use of convolution integrals applied to the Navier-Stokes problem 
needs a modified implementation. The analysis of the convolution algorithm reveals 
that we can split the computations into two parts. The first part is dealing with 
the spectral properties and the second one with the discrete Sinc approximation. 
The first part is always the same for all calculations once the dimension of 
the approximation N is selected. The second part of the convolution related to 
the potential g changes. During the calculation the potential changes because the 
velocity vector field from where g is derived changes. Exactly this is the setup 
in the application to the N-S problem. To avoid repeated calculation of the first 
part it is sufficient to calculate the spectral properties only once. In other words 
the collocation of the domain Y will be always the same. The second part, the 
Since collocation of g, will change in the Gauss-Seidel algorithm. Consequently 
we split up the convolution calculation into two parts. The first one which will 
stay always the same is related to the spectral properties. The second one which 
varies corresponds to the change of g. For this reason we define two functions 
spectralProperties3D[] and convolutionIntegrals3D[] which are together equiv- 
alent to the function convolutionIntegrals3DS[]. The equivalence is established 
by chaining the spectral part and the variable part. Thus the first spectral part is 
calculated only once while the second part is used in connection with the results 
from the first part as often as needed. This approach saves at least the multiple 
calculation of the spectral properties. 

The function spectralProperties3D[] is the first part to represent a 3-d convolu- 
tion integral of the following form 


p at 2=0, d=2/3, N=32 


5 


Fig. A.5 Pressure p at z = 0. Number of Sinc points N = 24 
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b pd pf 
[ff carr pee.y.2ravay'ae. (A.20) 


The function spectralProperties3D[] only calculates the spectral data of the discrete 
representation based on Sinc points in all three directions. The intervals [a, b], 
[c,d], and [e,f] are in general finite or infinite. For the application to the N-S 
equation specifically all three intervals are equal to R. Specifically the eigenvalues 
and eigenvectors are determined for a rectangular geometry. For this reason the 
boundary points in each of the three coordinate directions are specified as input data. 
In addition the variables of the three coordinate directions are included in the domain 
description. The function spectralProperties3D[] is based on the free space Green’s 
function Go = 1/(4s1r) which is generated internally of spectralProperties3D[]. 
The Laplace transform of the Green’s function is known and calculated based on 
three functions which we introduce in Sect. A.1.12. Since the spectral properties are 
frequently used in the solution of N—S equation it is beneficial here to calculate the 
spectral data only once. The determination of the spectral data and the frequent use 
of them save time in the iteration process for the N—-S equation. The following lines 
are an implementation of the spectral part. 


(* —— determine the convolution integrals -— *) 

x ig —/ 
(== FP PEG (|r - 7 |) ale.y,z)dv'dy'de --— *) 
(* —— Gis Green's function — — *) 


spectralProperties3D[{ varx_, ax_, bx_}, { vary_, ay_, by_}, 

{ varz_, az_, bz_}, Mx_, My_, Mz_, hxyz_] := 

Block[{ minpara, a1, k01, Nx, Ny, Nz, hx, hy, hz, sincPointsX, sincPointsY, 
sincPointsZ, DmatX, DmatY, DmatZ, AmX, AmY, AmZ, BmX, BmY, BmZ, 
evalAX, evalAY, evalAZ, evecAX, evecAY, evecAZ, XAX, XAY, XAZ, XinAX, 
XinAY, XinAZ, evalBX, evalIBY, evalBZ, evecBX, evecBY, evecBZ, XBX, 
XBY, XBZ, XinBX, XinBY, XinBZ, lapA, lapB, hMat, FA, FB, gSincX, 
gSincY, pk, qk, papp, qapp, basis, localKernel, a, kO, ItIn, u, v, 
precissionGoal = 120, pmat0, pmatl, equationl, equation2, equations, 
solution, H, IpG, s,t,Q, HO}, 

(*—— fix parameters —-— *) 

Nx = Mx; 

Ny = My; 
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Nz= Mz; 
hx = hxyz; 
hy = hxyz; 
hz = hxyz; 
(*-—— generate Sinc points -— *) 


sincPointsX = SetPrecision[ Table[y[k hx, ax, bx], {k, —-Mx, Nx}}], 
precissionGoal]; 

sincPointsY = 

SetPrecision[ Table[y[k hy, ay, by] /. varx ->y[k hx, ax, bx], {, — My, Ny}], 
precissionGoal]; 

sincPointsZ = 

SetPrecision[ 

Table[y[k hz, az, bz] /.{ varx ->y[k hx, ax, bx], vary ->w[k hy, ay, by]}, 
{k, — Mz, Nz}J], precissionGoal]; 

(* —— Stengers formula for the Laplace transform ofG —— *) 

IpG = lapTr3Poils, t, ul]; 

(* —— diagonal matrix forl/¢’ numeric —— *) 

DmatX = 

SetPrecision|[ 

DiagonalMatrix [ Map [(N [1 /0 varx@[ varx, ax, bx] /. varx — #]) &, 
sincPointsX]], precissionGoal]; 

DmatY = 

SetPrecision[ 

DiagonalMatrix[ 

MapThread [(N [1/0 vary[ vary, ay, by] /.{ vary > #2, varx > #1}]) &, 
{ sincPointsX, sincPointsY}]], precissionGoal]; 

DmatZ = 
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SetPrecision[ 

DiagonalMatrix[ 

MapThread[ 

(N [1 /0 varz@[ varz, az, bz] /.{ varz > #3, vary > #2, varx > #1}]) &, 

{ sincPointsX, sincPointsY, sincPointsZ}]], precissionGoal]; 

(*-—— matrixA,,-— *) 

AmX = SetPrecision| hx mT[ Mx, Nx]. DmatX, precissionGoal]; 

AmY = SetPrecision| hy mT[ My, Ny]. DmatY, precissionGoal]; 

AmZ = SetPrecision[ hz mT[ Mz, Nz]. DmatZ, precissionGoal]; 

(*—— matrixB,, -— *) 

BmX = SetPrecision[ hx Transpose[ mT[ Mx, Nx]]. DmatX, precissionGoal]; 
BmY = SetPrecision[ hy Transpose[ mT[ My, Ny]]. DmatY, precissionGoal]; 
BmZ = SetPrecision|[ hz Transpose[ mT[ Mz, Nz]]. DmatZ, precissionGoal]; 
(* —— Eigenvalues and Eigenvectors of MatrixA,,-—— *) 

{ evalAX, evecAX} = SetPrecision[ Eigensystem[ AmX], precissionGoal]; 
XAX = Transpose[ evecAX]; 

XinAX = Inverse[ XAX]; 

{ evalAY, evecAY} = SetPrecision| Eigensystem[ AmY], precissionGoal]; 
XAY = Transpose[ evecAY]; 

XinAY = Inverse[ XAY]; 

{evalAZ, evecAZ} = SetPrecision| Eigensystem[ AmZ], precissionGoal]; 
XAZ = Transpose[ evecAZ]; 

XinAZ = Inverse[ XAZ]; 

(* —— Eigenvalues and Eigenvectors of MatrixB,, —— *) 

{ evalBX, evecBX} = SetPrecision[ Eigensystem[ BmX], precissionGoal]; 
XBX = Transpose[ evecBX]; 

XinBX = Inverse[ XBX]; 
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{evalBY, evecBY} = SetPrecision[ Eigensystem[ BmY], precissionGoal]; 

XBY = Transpose[ evecBY]; 

XinBY = Inverse[ XBY]; 

{ evalBZ, evecBZ} = SetPrecision[ Eigensystem[ BmZ], precissionGoal]; 

XBZ = Transpose[ evecBZ]; 

XinBZ = Inverse[ XBZ]; 

(*—— returen of the spectral data and the symbolic Green's 

function —— *) 

{{ XAX, XAY, XAZ, XinAX, XinAY, XinAZ, evalAX, evalAY, evalAZ}, 

{ XBX, XBY, XBZ, XinBX, XinBY, XinBZ, evalBX, evalBY, evalBZ}, { lpG}} 


] 


The actual 3-d convolution integral is generated in a second step which is numer- 
ously used by the N-S algorithm to represent the spatial component of the 
convolution integral. The function convolutionIntegrals3D[] uses the derived data 
of the spectrum, the symbolic Laplace representation of the Green’s function, 
and a discrete array including the collocated information of the function g at 
Sinc points. The discrete representation of g instead of an analytic one is another 
property of the approach used. It is mandatory in the N-S algorithm to process 
the discrete representation because during the calculation only discrete arrays are 
used. The function convolutionIntegrals3D[] uses the splitting property of integrals 
to separate the integration domains in two separated incomplete integrals. This 
separation results into eight different versions of convolution integrals which are 
determined one after another to build up the final expression 


b pd pf 
[ff carr pee.y.zravayae. (A.21) 


The crucial point of this calculation is an effective implementation of array multi- 
plications in 3-d. We use here specifically the parallel properties of Mathematica 
to perform the repeated multiplications and summations in an effective way. It 
turned out that the implementation of these steps based on matrix multiplications 
is about ten times slower than the current parallel one. The core steps in this 
function are the summation of the partial integrals and the calculation of the discrete 
convolution product based on the Laplace representation. The algorithm for this 
three-dimensional multiplication is contained in Algorithm 4.6.7 given in [5]. The 
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implementation of Algorithm 4.6.7 is realized in function matrixConvolInt[] which 
is used eight times with the function convolutionIntegrals3D[]. 


(* —— second part to determinea3 — d convolution integral -— *) 
c= $47, Sth Stn G (|r - 7) sey. 2)dvayfae --— *) 


(* —— px isa given array and spectrum the spectral data of the 

discrete problem — — *) 

convolutionIntegrals3D[ spectrum_, px_] := 

Block[{ minpara, #1, k01, Nx, Ny, Nz, hx, hy, hz, sincPointsX, sincPointsY, 
sincPointsZ, DmatX, DmatY, DmatZ, AmX, AmY, AmZ, BmX, BmY, BmZ, 
evalAX, evalAY, evalAZ, evecAX, evecAY, evecAZ, XAX, XAY, XAZ, XinAX, 
XinAY, XinAZ, evalBX, evalBY, evalBZ, evecBX, evecBY, evecBZ, XBX, 
XBY, XBZ, XinBX, XinBY, XinBZ, lapA, lapB, hMat, FA, FB, gSincX, 
gSincY, pk, qk, papp, qapp, basis, localKernel, a, kO, ItIn, uv, v, 

precissionGoal = 120, pmat0, pmatl, equation1, equation2, equations, 

solution, H, lpG, s, t,Q, HO}, 

(* —— set spectrum to the different matrices and arrays used —-— *) 

{{ XAX, XAY, XAZ, XinAX, XinAY, XinAZ, evalAX, evalAY, evalAZ}, 
{XBX, XBY, XBZ, XinBX, XinBY, XinBZ, evalBX, evalBY, evalBZ}, { IlpG}} = 


spectrum; 

(* —— distribute definitions to kernels —— *) 

DistributeDefinitions[ evalAX, evalAY, evalAZ, evalBX, evalBY, evalBZ, w, ¢]; 
(*—— integral —— * 

(*--T= Ql+ Q24+ Q3+ O44 Q5+ Q6+ Q7+ Q8-— *) 

(* —— integral of the type Ql = f° f? [F g(E,n, «)G(x, y, z, €, n, K)dnd&dk —— *) 
pmat0 = SetPrecision[ matrixConvolInt[ px, XinAZ, XinAY, XinAX, IpG, 
evalAX, evalAY, evalAZ, XAX, XAY, XAZ], precissionGoal]; 
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(*—— integral of the type Q2 = f° {2 Jz 9&1, «)G(,y,z,§, 9, «)dndéd« -— *) 
pmat0 = 

pmat0 + SetPrecision| matrixConvolInt[ px, XinAZ, XinAY, XinBX, lpG, 
evalBX, evalAY, evalAZ, XBX, XAY, XAZ], precissionGoal]; 

(*—— integral of the type Q3 = fy” f?” f? 8.0, «)G(x, y, z, £, n, K)dndéda —— *) 
pmat0 = 

pmat0 + SetPrecision[ matrixConvolInt| px, XinAZ, XinBY, XinBX, IpG, 
evalBX, evalBY, evalAZ, XBX, XBY, XAZ], precissionGoal]; 

(*—— integral of the type Q4 = ff’ ff 86.7. «)G(x.y.z. 6.0, «)dnd§de —— *) 
pmat0 = 

pmat0 + SetPrecision| matrixConvolInt[ px, XinBZ, XinBY, XinBX, IpG, 
evalBX, evalBY, evalBZ, XBX, XBY, XBZ], precissionGoal]; 

(*—— integral of the type Q5 = Jf)’ J? 8(6. 1. «)G(x.¥.z, § 9 «)dndfdk —— *) 
pmat0 = 

pmat0 + SetPrecision[ matrixConvolInt[ ox, XinBZ, XinBY, XinAX, lpG, 
evalAX, evalBY, evalBZ, XAX, XBY, XBZ], precissionGoal]; 

(* —— integral of the type Q6 = f* f? ” 9(€,n, «)G(x, y, zn, K)dnd&dk —— *) 
pmat0 = 

pmat0 + SetPrecision| matrixConvolInt[ px, XinBZ, XinAY, XinAX, lpG, 
evalAX, evalAY, evalBZ, XAX, XAY, XBZ], precissionGoal]; 

(*—— integral of the type Q7 = J’ f? 2 aE. 7, «)G(x,y,z, , 9, K)dndéd« -— *) 
pmat0 = 

pmat0 + SetPrecision[ matrixConvolInt| px, XinBZ, XinAY, XinBX, 1pG, 
evalBX, evalAY, evalBZ, XBX, XAY, XBZ], precissionGoal]; 

(*—— integral of the type Q8 = ff fz a(&. 7, «)G(x, y, z,& n, «)dnd&dk -— *) 
pmat0 = 

pmat0 + SetPrecision| matrixConvolInt[ px, XinAZ, XinBY, XinAX, IpG, 
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evalAX, evalBY, evalAZ, XAX, XBY, XAZ], precissionGoal]; 


pmat0 
] 


The function matrixConvolInt[] is the core of the convolution integral functions. 
It is frequently used in convolutionIntegrals3D[] and implements Algorithm 4.6.7 
of [5]. This algorithm uses the symbolic representation of the Laplace transform of 
the Green’s function discretized on the eigenvalues of the spatial structure. Matrices 
of eigenvectors and their inverse matrices in each direction are used to build up 
the convolution integral in a discrete representation. First the inverse matrices are 
used in the forward direction of the Algorithm 4.6.7 and then the matrices of the 
eigenvectors in the backward direction. The midpoint of these matrix multiplications 
are determined by a Hadarmad product of the discrete Laplace matrix and the 
forward matrix. We note that the algorithm can be generalized to any dimension as 
long as the eigenvalues and eigenvectors are known. The separation of the products 
is also the source of the general separation of coordinate systems [5]. 


(*-—— implements Algorithm 4.6.7 by F. Stenger 1993 p. 239 -— *) 
matrixConvolint[ gSinc_, XinAZ_, XinAY_, XinAX_, ItIn_, evalAX_, evalAY_, 
evalAZ_, XAX_, XAY_, XAZ ] := 


Block[{ lapA, precissionGoal = 120, m, hh, kk, mm, tt, rr, qq, pp}, 


(* —— Laplace transform common to all steps —-— *) 

lapA = SetPrecision[ laplaceTransform3D|[ ItIn, evalAX, evalAY, evalAZ], 
precissionGoal]; 

(* —— determine length of the array -— *) 
m = Length[ gSinc]; 

(*-—— forward step] —-— *) 

hh = 

SetPrecision[ 

ParallelTable[ Sum|[ Part[ XinAX, j, 2] Part[ gSinc, yw, k,l], {u, 1, m}], 
{j, 1, m}, {k, 1, m}, {1, 1, m}], precissionGoal]; 
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(*—— forward step2-—— *) 

kk = 

SetPrecision[ 

ParallelTable[ Sum[ Part] XinAY, k, A] Part[ hh, j, A, J], {A, 1, m}], 

{j, 1, m}, {k, 1, m}, {1, 1, m}], precissionGoal]; 

(*-—— forward step3 -— *) 

mm = 

SetPrecision[ 

ParallelTable[ Sum[ Part| XinAZ, /, y] Part[ kk, j,k, y], {y, 1, m}], 

{j, 1, my, {k, 1, m}, {1, 1, m}], precissionGoal]; 

(* —— Hadamard product step -— *) 

tt = SetPrecision[ lapA mm, precissionGoal]; 

(* —— backward step4-—— *) 

r= 

SetPrecision[ ParallelTable[ Sum[ Part[ XAZ, /, @] Part[ tt, j,k, 6], {@, 1, m}], 
{j, 1, my, {k, 1, m}, {1, 1, m}], precissionGoal]; 

(* —— backward step5 -— *) 

qq = 

SetPrecision[ ParallelTable[ Sum[ Part[ XAY, k, «] Part[ rr,j, «, J], {«, 1, m}], 
{j, 1, my, {k, 1, m}, {1, 1, m}], precissionGoal]; 

(* —— backward step6 —— *) 

Pp = 

SetPrecision[ ParallelTable[ Sum[ Part[ XAX, j, a] Part[ qq, a, k, f], {a, 1, m}], 
{j, 1, my, {k, 1, m}, {1, 1, m}], precissionGoal]; 


pp 
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The two functions of a discrete Sinc convolution are effectively used in the main 
function NavierStokes3D[]. 


A.1.15 Navier-Stokes Function 


The function NavierStokes3D[] is the main function to approximate the Navier— 
Stokes initial-boundary value problem based on divergence free initial vector fields. 
The function is setup to use in a way the analytic initial conditions as input data. 
Thus function NavierStokes3D[] uses a list of analytic initial values for the different 
directions of the initial velocities u°’ with j = 1,2,3. Each spatial direction of 
the domain is specified with its lower and upper limits a; and b;. In addition to 
the terminal values the related independent variables are specified for the spatial 
direction, respectively. The same list structure is used for the temporal variable t € 
[a4, b4]. The number of Sinc points N for the spatial and M for the temporal direction 
is specified next. The spatial step length parameter 6 allows to adapt the spatial 
Sinc step length in an optimal way. The parameter €, the viscosity of the fluid, 
related to the scaling of the time axis is given next. The expected error level for the 
iteration of the Gauss-Seidel iteration is the last mandatory input data value. The 
function NavierStokes3D[] carries out the explicit calculations for the nonlinear 
integral equations specified in the algorithm given in Chap. 5. Whenever possible 
the steps of the algorithm are performed in parallel to increase the performance of 
the computation. The efficiency of the function depends on the available kernels on 
a machine or on a network. The tests were ruining on single machines with two 
up to eight kernels and on a network with 22 kernels. In addition we made some 
test runs on a highly parallel grid of an HPC computer. The general observation 
for the notebook network was that the calculations on a single machine performed 
better than on a network of machines. The reason is the extensive exchange of data 
among the kernels which is better organized on board than over a network. The HPC 
computations performed in this respect in a better way. 

The function NavierStokes3D[] uses the option exportResultsTo to specify a 
storage location for results and input data. At the end of the calculation the complete 
set of generated results, symbolic and numeric, and the input data are written to the 
specified file. The preservation of results avoids to run time consuming calculations 
again and again. In addition the storage of data allows a post-processing of the 
approximation in other applications. 

The next lines list the implementation of the main function NavierStokes3D[]. 
The comments given in the program code describe the current calculation step 
performed. 


Options[ NavierStokes3D] = { exportResultsTo — { “Results_001.m”}}; 
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NavierStokes3D| initial_, { varx_, ax_, bx_}, { vary_, ay_, by_}, 

{ varz_, az_, bz_},{ vart_, at_, bt_}, Mx_, Mt_,é_,«_, errorLevel_, 
OptionsPattern{]] := 

Block[{ precissionGoal = 20, My, Mz,n,h, hp, tt, hy, sincPoints, Dmat, 

Am, spectrum3D, ul, u2, u3, Ful, Fu2, Fu3, Ab, FV1, FV2, FV3, V1, V2, 
V3, W1, W2, W3, FW1, FW2, FW3, FU1, FU2, FU3, X1, X2, X3, X4, X5, X6, 
FX1, FX2, FX3, FX4, FX5, FX6,J,K,L, Ff,f, Fp,p,¥,Z, FN, Ul, U2, 

U3, Al, A2, A3, errors, er0 = 1, UU1, UU2, UU3, pP, hs, hcon, eigenValuesT, 
eigenVectorsT, XAT, XinAT, Tstep, CT,d, exportData, fileName}, 

(*—— set the file name for exporting results fileName —— *) 

fileName = Option Value[ exportResultsTo]; 

(* *) 

(* —— start parallel kernels —— *) 

LaunchKernels|]; 


(*-—— define step lengths -— *) 


My = Mx; 
Mz = Mx; 
n= Mx; 


(* —— spatial step length for convolutions —-— *) 


5 HLS 
hcon = Tin’ 
(* —— determined for Sinc collocation in Fourier data—— *) 
d=dal. Flatten [ Solve beak == hcon, dl]; 
bx— ax. 
A= -GMK > 


(*-—— hp = A’ used in Fourier steps —— *) 
hp = Gin? 
(* —— create discrete array forA —— *) 


Ab = Aln, hp; 
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(* —— choose the step length for the time line -— *) 

hy = Te 

(* —— Sinc points along the time axis -— *) 

tt=N [ ParallelTable [ee {u,— Mt, ms] 

(* 

Print[ “h =”, [Al]; 

Print| “hcon =”, N[ hcon]]; 

Print[ “d=”, N[d]]; 

Print[ “hp =”, N[ hp]]; 

Print[ “hy =”, N[ hy J]; 

*) 

(* —— create the sinc points on the time line -— *) 

sincPoints = SetPrecision[ Table[y[k hy, at, bt], {k,— Mt, Mt}], 
precissionGoal]; 

(* —— define the diagonal matrixD for the time axis -— *) 
Dmat = DiagonalMatrix[ 

Map [(N [1 /0 var@[ vart, at, bt] /. vart > #, precissionGoal]) &, 
sincPoints]]; 

(* —— define the integral operator asa matrix —— *) 

Am = hy mT[Mt, Mt]. Dmat; 

(* —— calculate spectral properties of the time coordinate —— *) 
{ eigenValuesT, eigenVectorsT} = Eigensystem[ Am]; 

XAT = Transpose[ eigenVectorsT]; 

XinAT = Inverse[ XAT]; 

Cs) 


(* —— temporal evolution included in two matrices Tstep and CT —-— *) 


(* —— matrixd, of steph) is generated -— *) 
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Tstep = ParallelTable [a ea 
Gj,1,2n + 1}, {k,1,2n + 13,4, 1,2n+ 1}, {u, 1,2 Mt+ 1); 
(* Print[ “Dim Tstep =”, Dimensions[ Tstep]]; *) 

(*—— matrixC of stepc) is generated —-— *) 

CT = ParallelTable[ 

Sun] Part[ XAT, «, 4] Part[ Tstep, j, k, 1, 4] Part[ XinAT, p, A], 
{u, 1,2 Mt + 13], {j, 1, 2n + 1}, {k, 1, 2n + 1}, {, 1, 2n + 13, 
{c, 1,2 Mt + 1}, {A, 1,2 Mt+ 1}; 

(* Print[ “— CT done — ”]; 

Print| “Dim CT =”, Dimensions[ CT]]; *) 


(* —— calculate the spectral properties of the spatial 

coordinates. It is important to note that we use equidistant 

spacing —— *) 

spectrum3D = spectralProperties3D[{ varx, —0o, 00}, { vary, —0o, oo}, 
{ varz,—co, 00}, Mx, My, Mz, hcon]; 

Print[ “— Spectrum done — ”]; 

(*-—— generate the discrete representation of initial values —— *) 
ul = discreteInitialValue[ initial, 1, n, h]; 

u2 = discreteInitial Value[ initial, 2, n, h]; 

u3 = discreteInitial Value[ initial, 3, n, h]; 

(* —— Fourier transform the initial values by DFT -— *) 

Ful = AbsoluteTiming[ a3DFourier[ ul, A, n]]; 

(* Print| “Fourier time 3D =”, First[ Ful]]; *) 

Ful = Last[ Ful]; 

Fu2 = a3DFourier| u2, h, n); 

Fu3 = a3DFourier{ u3, h, n]; 
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(* —— determine the4 — d convolution of initial data and the 
time line in Fourier space —— *) 

FV1 = convol4D[ Ab, tt, Ful, €, n]; 

FV2 = convol4D[ Ab, tt, Fu2, €, n]; 

FV3 = convol4D[ Ab, tt, Fu3, €, mJ; 

(* Print| “Dim FV1 =”, Dimensions[ FV1]]; *) 

(* —— Calculate the inverse discrete Fourier transform( DFT) 
of the convolution —— *) 

V1 = Map|[ Chop| inverseB3DFourier|#, h, n]]&, FV 1]; 

(* Print[ “Dim V1 mapped =”, Map| Dimensions|#]&, FV1]]; *) 
V2 = Map[ Chop[ inverseB3DFourier|#, h, n]]&, FV2]; 

V3 = Map[ Chop| inverseB3DFourier[#, h, n]|&, FV3]; 

(* Print| “Dim V1 =”, Dimensions[ V1]]; *) 


(* —— set variables as initials for the iteration -— *) 
W1= V1; 

W2 = V2; 

W3 = V3; 

FW1 = FV1; 

FW2 = FV2; 

FW3 = FV3; 

U1 = WI; 

U2 = W2; 

U3 = W3; 


(* —— here starts the While LOOP —— *) 
While[ er0 > errorLevel, 
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Print| “— enter Loop — ”]; 


FU1 = FWI1; 
FU2 = FW2; 
FU3 = FW3; 


(* —— form the Hadarmad products -— *) 


X1 =(U1UD); 
X2 = (U1 U2); 
X3 = (U1 U3); 
X4 = (U2 U2); 
X5 = (U2 U3); 
X6 = (U3 U3); 


(* Print[ “Dim X1 =”, Dimensions[ X1]]; *) 
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(* —— Fourier transform of each time step and each product —— *) 


FX1 = Map| a3DFourier[#, h, n]&, X1]; 
FX2 = Map| a3DFourier{#, h, n]&, X2]; 
FX3 = Map| a3DFourier|[#, h, n|&, X3]; 
FX4 = Map| a3DFourier[#, h, n]&, X4]; 
FX5 = Map| a3DFourier|#, h, n|&, X5]; 
FX6 = Map| a3DFourier[#, h, n]&, X6]; 
Print[ “— Fourier I done — ”]; 


es) 


(* —— create arrays representingA/ factors —— *) 
J = ParallelTable[j hp, {j, —n, n}, {k, —n, n}, {1, —n, n}]; 
K = ParallelTable[k hp, {j, —n, n}, {k, —n, n}, {1, —n, n}]; 
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L= ParallelTable{/ hp, {j, —n, n}, {k, —n, n}, {1, —n, n}]; 


(* Print[ “Dim FX1 =”, Dimensions[ FX1]]; *) 
(*-—— form the gradient of the velocities in Fourier space -— *) 
Ff = 
—( Chop[( Map[JJ#&, FX1] + Map[2/K#&, FX2] + Map[2JZ#&, FX3])+ 
( Map[KK#&, FX4] + Map[2KL#&, FX5] + Map[LL#&, FX6])]); 
(* —— inverse DFT of the velocity gradients -— *) 
f = Map| Chop| inverseB3DFourier|#, h, n]|&, Ff]; 
(* —— convolution of the spectral data in space and the velocity 
gradients delivers the pressure —-— *) 
Print| “— convolution I — ”]; 
p= AbsoluteTiming[ Map| convolutionIntegrals3D[ spectrum3D, #]&, f]]; 
Print| ““— parallel time convol I=”, First[p]]; 
p= Last[p]; 
Print| “— convolution I done — ”]; 
(*-—— DFT of the pressure —— *) 
Fp = Map[ a3DFourier|#, h, n]&, p]; 
(* —— form the parts of the integral terms in Fourier space —— *) 
Y = Map[(iJ#)&, Fp]; 
Z = i Chop[( Map[J#&, FX1] + Map[K#&, FX2] + Map[Z#&, FX3])); 
FN = Y+Z; 
(* *) 
(* —— time step of the integrals -— *) 
FN = ParallelTable[ Sum[ Part[ CT, j, k, /, 2, m] Part[ FN, yj, k, J], 
{y, 1,2 Mt + 1}], {m, 1,2 Mt + 1}, {7, 1, 2n + 1}, {k, 1,2n + 1}, 
{1,1,2n + 1}]; 
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Print[ “— time step I done — ”]; 

(* —— form the DFT of the first component of the velocity field —— *) 
FU1 = FV1+ EN; 

U1 = Chop| Map| inverseB3DFourier[#, h, n]&, FU1]]; 


(* —— update the matrices for the second equation -—— *) 


X1 = (U1 U1); 
X2 = (U1 U2); 
X3 = (U1 U3); 
(* —— Fourier transform the arrays -— *) 


FX1 = Map| a3DFourier[#, h, n]&, X1]; 
FX2 = Map| a3DFourier[#, h, n]&, X2]; 
FX3 = Map| a3DFourier|#, h, n]&, X3]; 
Print| “— Fourier Il done — ”]; 
(*—— form the gradient of the velocities in Fourier space for 
equation two —— *) 
Ff = 
—(Chop|( Map[JJ#&, FX1] + Map[2J/K#&, FX2] + Map[2JL#&, FX3])+ 
( Map[KK#&, FX4] + Map[2KL#&, FX5] + Map[LL#&, FX6])]); 
(* —— inverse DFT of the velocity gradients for equation two —— *) 
f = Map[ Chop[ inverseB3DFourier[#, h, n]]&, Ff]; 
(* —— convolution of the spectral data in space and the velocity 
gradients delivers the pressure for equation two —— *) 
Print| “— convolution II — ”); 
p= AbsoluteTiming[ Map| convolutionIntegrals3D[ spectrum3D, #]&, f]]; 
Print[ “— parallel time =”, First[p]]; 
p = Last[p]; 


Print| “— convolution II done — ”]; 
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(*-—— DFT of the pressure —— *) 

Fp = Map| a3DFourier[#, h, n]&, p]; 

(* —— form the parts of the integral terms in Fourier space —— *) 
Y = Map|(iK#)&, Fp]; 
Z = iChop[( Map[J#&, FX2] + Map[K#&, FX4] + Map[Z#&, FX5])]; 
FN = Y+2Z; 

(* —— time step of the integrals -— *) 

FN = ParallelTable[ Sum[ Part[ CT, j,k, 1, 4, m] Part[ FN, 2,7, k, J), 
{u, 1,2 Mt + 1}], {m, 1,2 Mt + 1}, {7, 1, 2n + 1}, {k, 1,2n + 1}, 
{1,1,2n + 1}]; 

Print[ “— time step II done — ”]; 

FU2 = FV2+ EN; 

U2 = Chop| Map| inverseB3DFourier|#, h, n]&, FU2]]; 


(*—— update the matrices for the third equation -— *) 


X2 = (U1 U2); 
X4 = (U2 U2); 
X5 = (U2 U3); 
(* —— Fourier transform the arrays —-— *) 


FX2 = Map| a3DFourier[#, h, n]&, X2]; 

FX4 = Map| a3DFourier[#, h, n]&, X4]; 

FX5 = Map| a3DFourier|#, h, n|&, X5]; 

Print[ “— Fourier III done — ”]; 

(* —— form the gradient of the velocities in Fourier space for 

equation three —-— *) 

Ff = 

—( Chop[( Map[JJ#&, FX1] + Map[2/K#&, FX2] + Map[2JZ#&, FX3])+ 
( Map[KK#&, FX4] + Map[2KL#&, FX5] + Map[LL#&, FX6])]); 
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(* —— inverse DFT of the velocity gradients for equation three -— *) 
f = Map| Chop| inverseB3DFourier[#, h, n]|&, Ff]; 

Print[ “— convolution III — ”]; 
p= AbsoluteTiming[ Map| convolutionIntegrals3D[ spectrum3D, #]&, f]]; 

Print| “— parallel time =”, First[p]]; 

p = Last[p]; 

Print[ “— convolution III done — ”]; 

(*-—— DFT of the pressure -— *) 

Fp = Map| a3DFourier[#, h, n]&, p]; 

(* —— form the parts of the integral terms in Fourier space —— *) 

Y = Map|(iL#)&, Fp]; 

Z = i Chop|( Map[J#&, FX3] + Map[K#&, FX5] + Map|[L#&, FX6])]; 

FN = Y+Z; 

(* —— time step of the integrals -— *) 

FN = ParallelTable{ Sum[ Part[ CT, j, k, J, j2, m] Part[ FN, 1, j,k, d], 
{, 1,2 Mt + 1}], {mn, 1,2 Mt + 1}, {j, 1, 2n + 1}, {k, 1, 2n + 1}, 
{1,1,2n+ 1]; 

Print[ “— time step III done — ”); 

FU3 = FV3+ EN; 

(* —— determine the last component of the velocity field -— *) 

U3 = Chop| Map| inverseB3DFourier|#, h, n]&, FU3]]; 

(* —— determine the differences between the initial step and 
the current step -— *) 

Al= W1- U1; 

(* Print[ “Dim Al =”, Dimensions[ A1]]; *) 

A2 = W2- U2; 

A3 = W3- U3; 
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(* *) 


(* —— calculate the errors based on Frobenius matrix norms —— *) 

errors = 

{ Norm[ Map[ Norm[ Map[ Norm[#, “Frobenius”]&, #], “Frobenius”]&, Delta1], 
“Frobenius” |”, 

Norm[ Map[ Norm[ Map| Normf#, “Frobenius”]&, #], “Frobenius”]&, A2], 
“Frobenius”]’, 

Norm| Map[ Norm[ Map| Norm[#, “Frobenius”]&, #], “Frobenius”]&, A3], 
“Frobenius”}’} ; 

Print [" errors? = ", errors] ; 

er0 = Fold[ Plus, 0, errors]!/?; 


Print| “error sum =”, erO]; 


(* —— set new initials and their DFTs —— *) 


Wi = U1; 
W2 = U2; 
W3 = U3; 


FW1 = Map|[ a3DFourier[#, h, n]&, W1]; 
FW2 = Map| a3DFourier[#, h, n]&, W2]; 
FW3 = Map| a3DFourier|#, h, n]&, W3] 
1; 


(* —— create the solutions as analytic representations —-— *) 
(*-—— velocityu; —— *) 
UU1 = 


uhl — Apply[ Function, {{ varx, vary, varz, vart}, 
ParallelSum[ Part[ Ul, w+ Mt+1,j+n+lkt+n+1,l+n+4+]] 
Sinc[( varx — jh) /h] Sinc[z( vary — kh) /h] Sinc[z( varz — lh) /h| 
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Sinc[z(@[ vart, at, bt] — ~ hy)/ hy], {7, —n, n}, {k, —n, n}, 

{1, —n, n}, {u,— Mt, Mt}}}]; 

(*-—— velocityu,—— *) 

UU2 = 

uh2 — Apply[ Function, {{ varx, vary, varz, vart}, 
ParallelSum[ Part[ U2,+ Mt+1jtnt+1,k+n+1,l+n+4+]] 
Sine[z( varx — jh)/h] Sinc[z( vary — kh) /h] Sinc[z( varz — lh) /h] 
Sinc[z(Q[ vart, at, bt] — yw hy)/ hy], {7, —n, n}, {k, —n, n}, 

{, —n, n}, {,— Mt, Mt3}}]; 

(*-—— velocityu3 -—— *) 

UU3 = 

uh3 — Apply[ Function, {{ varx, vary, varz, vart}, 
ParallelSum[ Part[ U3,2+ Mt+1,jtnt+1,k+n+1,l+n+4+]] 
Sinc[z( varx — jh) /h] Sinc[( vary — kh)/h] Sinc[z( varz — lh) /h| 
Sinc[z(@[ vart, at, bt] — wu hy)/ hy], {j, —n, n}, {k, —n, n}, 

{1, —n, n}, {u,— Mt, Mt}}}]; 

(*—— pressure —— *) 

pP = 

ph — Apply[ Function, {{ varx, vary, varz, vart}, 

ParallelSum{ Part[p, 2+ Mt+1jtnt+l1kt+tn+1,l+n+1]] 
Sine[z( varx — jh)/h] Sinc[z( vary — kh) /h] Sinc[z( varz — lh) /h] 
Sinc[z(@[ vart, at, bt] —  hy)/ hy], {j, —n, n}, {k, —n, n}, 
{1, —n, n}, {u,— Mt, Mt3}}]; 


(* —— shut down kernels -— *) 
CloseKernels[]; 
(* —— export results toa file—— *) 


exportData = 
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{{ initial, { varx, ax, bx}, { vary, ay, by}, { varz, az, bz}, 
{ vart, at, bt}, Mx, Mt, 5,€, errorLevel}, 

{ errors, UU1, UU2, UU3, pP, { U1, U2, U3, p}}}; 

If[ Length[ fileName] > 1, Print “+++ writing data —”); 
Export| fileName, exportData]; 

Print| “— writing done +++”); ]; 

(*-—— return results -—— *) 


{ errors, UU1, UU2, UU3, pP,{ Ul, U2, U3, p} 


] 


The following example demonstrates how NavierStokes3D[] is used to solve an 
N-S initial boundary value problem. 


Example A.1.16. Solution of the N-S Problem 

The application of NavierStokes3D[] to the initial velocity field vVectorField 
(generated in Example A.1.15), on a cube Y = (—4, 4)? with N = 8 and M = 3, 
6 = 2/3, ¢ = 0.5, and an error margin of 10~? delivers an approximation 


nSsolution = NavierStokes3D[ vVectorField, {x, —4, 4}, {y, —4, 4}, 
{z,—4, 4}, {t,0, 10-8} , 8, 3, 2/3, .5, 0.01, 
exportResultsTo — { “Results_001.m”}] 


— Spectrum done — 

— enter Loop — 

— Fourier I done — 

— convolution I — 

— parallel time convol I = 1666.458569 
— convolution I done — 

— time step I done — 

— Fourier II done — 

— convolution IT — 

— parallel time =2041.654744 
— convolution IT done — 

— time step II done — 

— Fourier III done — 

— convolution III — 

— parallel time =1848.242868 
— convolution III done — 
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— time step III done — 

errors” = { 9.37351258276783**-9, 
9.62722291300109T**-9, 8.4431997499249**_9} 
error sum = 0.000165662 


large output | show less || show more || show all || set size limit. .. 


The result of the calculation is a large list of data consisting mainly of six elements 
assigned to the symbol nSsolution. The structure of the list has the following form 


feu',w,w,p,{ Ul, U2, U3, PH}. (A.22) 


where the entries have the meaning: 


1. € represents a list of square errors based on the Frobenius norm for matrices 

2. u', u?, uw, and p are analytic representations of the approximations for the 
components of the velocity vector field and the pressure. The functions are 
represented as pure Mathematica functions using replacement rules. 

3. Ul, U2, U3, and P are the discrete numeric results (expansion coefficients) of 


the approximation. 


To access the elements of the results list nSsolution we use the Part[] function of 
Mathematica. For example the first part of the results list contains the errors squared 
which are accessed by 


nSsolution|[1]] 


{ 9.37351258276783**-9, 9.627222913001091**-9, 8.4431997499249*“-9} 


Note the errors are extremely small for using only m = 17 Sinc points. 

The approximations of the vector field components uv and the pressure are used in 
applications as replacement rules. The components u! use the specific representation 
uh1 [x, y, z, f] and similar patterns for u?, u°, and p. The symbol uhl is replaced 
(/.) by the analytic expression contained in the second part of nSsolution|[2]]. The 
following plots collect in a graphics grid the four approximations at a fixed time 
t/T = 0.25 (see Fig. A.6). 


GraphicsGrid[ 

{{ Plot3D [ Evaluate [ Re [ uh1 [x, y,0,0.25 10°] /. nSsolution|[2]]] , 

{x, —4, 4}, {y, —4, 4}, PlotRange — All, AxesLabel > { x, y, “”}, 
PlotLabel > "Re(u, ) at z=0, t/T=0.25", ColorFunction > “Rainbow”, 
PlotPoints — 50], 
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Re(u3) at z=0, t/T=0.25 Re(up) at z=0, t/T=0.25 


Fig. A.6 Approximations for the vector fields and the pressure 


Plot3D [ Evaluate [ Re [ uh2[-x, y, 1,0.25 10~*]] /. nSsolution([3}]] , 

{x, —4, 4}, {y, —4, 4}, PlotRange — All, AxesLabel > { x, y, “”}, 
PlotLabel > "Re(up ) at z=0, t/T=0.25", ColorFunction > “Rainbow”, 
PlotPoints — 50]}, 

{ Plot3D [ Evaluate [ Re [ uh3 [x, 0, y, 0.25 10~*]] /. nSsolution[[4]]] , 

{x, —4, 4}, fy, -4, 4}, PlotRange — All, AxesLabel — { x, z, “”}, 
PlotLabel — "Re(w3 ) at y=0, t/T=0.25", ColorFunction > “Rainbow”, 
PlotPoints — 50], 

Plot3D [ Evaluate [ Re[ ph[x, y,0,0.25 1078] /. nSsolution([5]]] , 

{x, —4, 4}, {y, —4, 4}, PlotRange — All, AxesLabel > { x, y, “”}, 
PlotLabel — “Re(p) at z=0, t/T=0.25”, ColorFunction > “Rainbow”, 
PlotPoints — 50]}}] 


The graphs in Fig. A.6 show the real part of the analytic approximations. Due to 
the small number of Sinc points used in the calculation, we observe ripples of 
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the velocities at the boundaries. The pressure defined by Eq. (1.13) is a derived 
quantity. In addition the pressure is calculated based on derivatives which increases 
the sensitivity. The conclusion at this stage of calculation is that an increase of Sinc 
point is needed to resolve a stable approximation. We note that the approximations 
are in general complex valued functions. However, the imaginary part of the 
approximation is very small and thus insignificant. 


Vv 


A.1.16 Import Function 


The function NavierStokes3D[] uses an option to store the results of the calculation 
as symbolic expressions for all the vector field components. Once stored the data 
are retrieved for additional calculations by the function importResults[]. The read in 
data structure is exactly the same as generated by NavierStokes3D[]. The data are 
organized in two sub-lists. The first collects all the initial data to start a calculation 
and thus offers the option to rerun a calculation. The second part of the list collects 
the results of the approximation. All the vector field components of the velocity 
field and the pressure are available as symbolic expressions. In addition the discrete 
representations (expansion coefficients) for the vector field components and the 
pressure are also included in this list of results. 


importResults[ fileName_] := 

Block[{ initial, varx, ax, bx, vary, ay, by, varz, az, bz, vart, at, 

bt, Mx, Mt, 6,¢€, errorLevel, errors, UU1, UU2, UU3, pP, U1, U2, U3, p}, 
(* —— import data structure —— *) 

{{ initial, { varx, ax, bx}, { vary, ay, by}, { varz, az, bz}, 

{ vart, at, bt}, Mx, Mt,6,¢, errorLevel}, 

{ errors, UU1, UU2, UU3, pP, { U1, U2, U3, p}}} = Import fileName] 

] 


The use of stored results generated by NavierStokes3D[] is straightforward. The 
function importResults[] will read in the data from the specified file. The next 
example demonstrates the application of the function. 


Example A.1.17. Import of N-S Calculations 

The current example reads in the data generated in Example A.1.16 which was 
saved in file Results_001.m. The structure of the input is assigned to a symbol, 
here solutionNS, containing the input and output data of NavierStokes3D{[]. 
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solutionNS = importResults[ “Results_001.m”] 


large output | show less ||} show more | show all || set size limit... 


The first part of the list contains the input data 


inputData = First[ solutionNS] 


jor ee —%¢ xy? 24222 2 xy? oe y2 _ QeP YZ y27? 
He Pe xe 4h De Ye Qe Y-@ yz +2 Ye yz , 
{x, —4, 4}, y, —4, 4, {Z, —4, 4}, {t, 0, aw} ; 8, 3, 5, 0.5, 0.01} 


The second part collects the results of the calculation. Here shown as shortened list. 


nSsolution = Last[ solutionNS] 


large output | show less |} show more | show all || set size limit... 


V 


Appendix B 
Result Notes 


Abstract The following section includes an example of results generated by 


NavierStokes3D[]. 


B.1 Example File of Results 


The following listing of the output of NavierStokes3D[] contains two parts. The first 
part represents the input data for NavierStokes3D[] and the second part contains the 
results generated by NavierStokes3D[] (see the listing below). The listing starts with 
a comment line generated automatically by Mathematica. The next three lines are 
the input data. The rest of the data are results generated by NavierStokes3D[]. 
The vector components (u!, u?, u*) and p are represented as pure functions using 
symbols (uhl, uh2, uh3) and ph, respectively. The numeric values at the end of the 
listing represent the discrete coefficients for the Sinc approximations of the vector 
field components and the pressure. 

The result of the calculation is a list consisting of six elements. The structure of 
the list has the following global form 


{6,10 Ww .p, (U1, U2; U3, FH}. (B.1) 


where the entries have the meaning: 


1. ¢ represents a list of square errors based on the Frobenius norm of matrices 

2. u', u?, u, and p are analytic representations of the approximations for the 
components of the velocity vector field and the pressure. The functions are 
represented as pure Mathematica functions using replacement rules. 

3. Ul, U2, U3, and P are the discrete results (expansion coefficients) of the 


approximation. 


(* Created with the Wolfram Language : www.wolfram.com «) 

{{{E*(-x*2 - y*2 - 2*2)«ly - 2), E*(-x*2 - y*2 - 2*2)«(-x + 2), 
E*(-x*2 - y*2 - z*2)*(x - y)}, {x, -3, 3}, {y, -3, 3}, {z, -3, 3}, 

{t, 0, 1.**-6}, 2, 1, 0.5, 1/100}, 

{{2.0042728487350446**-9, 2.00427283593837**-9, 2.004272823975107**-9}, 
uhl -> Function[{x, y, z, t}, -1.720188105222856**-6*Sinc[2*(-Pi/2 + x)]* 


Sinc [2*y] *Sinc[2+*z] *Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 
1.720188105222856+*-6*Sinc[2*(Pi/2 + x)]*Sinc[2*y]*Sinc[2*z] * 
Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 4.244042763168937%*-6« 
Sinc[2«(-Pi/2 + x)]«*Sinc[2*(-Pi + y)]*Sinc[2«z]* 
Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 4.244042763168939%*-6+ 
Sinc[2«*(Pi/2 + x)]*Sinc[2*(-Pi + y)]*Sinc[2s*z]* 
Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 0.19426493698813607*Sinc [2«x] + 
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Sinc[2«*(-Pi/2 + y)]«*Sinc[2*z]*Sinc[Sqrt [13] *Log[t/(1.**-6 - t)]] + 
0 .03340600713028449«Sinc[2*(-Pi + x)]*Sinc[2*(-Pi/2 + y)]*Sinc[2«z]* 
Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 

(0.019752908736525097 - 1.3803662110999904%*-7*I) *Sinc[2*(-Pi/2 + x)]* 
Sinc([2«(-Pi/2 + y)]*Sinc[2*z] *Sinc[Sqrt [13] *Log[t/(1.**-6 - t)]] - 
(0.01975772668211167 + 1.3803662111522862+*-7*I) *Sinc[2*(Pi/2 + x)]* 
Sinc[2«*(-Pi/2 + y)]«*Sinc[2*z]*Sinc[Sqrt [13] *Log[t/(1.**-6 - t)]] + 
0.03340600713028449«Sinc[2*(Pi + x)]*Sinc[2«*(-Pi/2 + y)]*Sinc[2+*z]+* 
Since [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 0.19426493698813607«Sinc [2+x] « 
Sinc[2«*(Pi/2 + y)]*Sinc[2«z]*Sinc[Sqrt [13] *Log[t/(1.**-6 - t)]] - 

0 .03340600713028449«Sinc[2*(-Pi + x)]*Sinc[2*(Pi/2 + y)]*Sinc[2«z]* 
Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 

(0.01975772668211167 + 1.3803662110999904+**-7*I) *Sinc[2*(-Pi/2 + x)]* 
Sinc([2«(Pi/2 + y)]*Sinc[2*z]*Sinc[Sqrt [13] *Log[t/(1.**-6 - t)]] + 
(0.019752908736525097 - 1.3803662111522862**-7*I) *Sinc[2+*(Pi/2 + x)]* 
Sinc[2«*(Pi/2 + y)]*Sinc[2*z]*Sinc[Sqrt [13] *«Log[t/(1.**-6 - t)]] - 

0 .03340600713028449«Sinc[2* (Pi + x)]*Sinc[2*(Pi/2 + y)]*Sinc[2«z]* 
Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 4.244042763168937%*-6« 
Sinc[2«(-Pi/2 + x)]«*Sinc[2«*(Pi + y)]*Sinc[2«*z]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 4.244042763168939%*-6x 
Sinc([2«*(Pi/2 + x)]*Sinc[2«(Pi + y)]*Sinc[2«z]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 4.244042763161842%*-6« 
Sinc[2«*(-Pi/2 + x)]*Sinc[2*y]*Sinc[2*(-Pi + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 4.2440427631618415**-6% 
Sinc[2«*(Pi/2 + x)]*Sinc[2*y]*Sinc[2«*(-Pi + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 6.9091114514986625**-6« 
Sinc[2«*(-Pi/2 + x)]*Sinc[2«*(-Pi + y)]*Sinc[2*(-Pi + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 6.9091114514986625%*-6% 
Sinc[2«*(Pi/2 + x)]*Sinc[2*(-Pi + y)]*Sinc[2«(-Pi + z)]* 

Since [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 0.033406003792346574%Sinc [2«x] « 
Sinc[2«*(-Pi/2 + y)]*Sinc[2«*(-Pi + z)]l«* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 0.005744537441177679« 
Sinc[2«(-Pi + x)]*Sinc[2«(-Pi/2 + y)]*Sinc[2«(-Pi + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 

(0.0033940849529615577 - 1.380366211067981%**-7*I) *Sinc[2*(-Pi/2 + x)]* 
Sinc[2«*(-Pi/2 + y)]*Sinc[2«*(-Pi + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 

(0.003400207226272135 + 1.380366211062865+*-7*I) *Sinc[2*(Pi/2 + x)]* 
Sinc[2«*(-Pi/2 + y)]*Sinc[2«*(-Pi + z)]l«* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 0.005744537441177679« 

Sinc[2« (Pi + x)]*Sinc[2«(-Pi/2 + y)]*Sinc[2«(-Pi + z)]* 

Since [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 0.033406003792346574+%Sinc [2*x] « 
Sinc[2«*(Pi/2 + y)]*Sinc[2«(-Pi + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 0.005744537441177679« 
Sinc[2«*(-Pi + x)]*Sinc[2«*(Pi/2 + y)]*Sinc[2«*(-Pi + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 

(0.003400207226272135 + 1.380366211067981+*-7*I) *Sinc[2*(-Pi/2 + x)]* 
Sinc[2«*(Pi/2 + y)]*Sinc[2«*(-Pi + z)]* 

Sinc[Sqrt [13] *Log[t/(1.**-6 - t)]] + 

(0.0033940849529615577 - 1.380366211062865%*-7%I) *Sinc[2*(Pi/2 + x)]* 
Sinc[2«(Pi/2 + y)]*Sinc[2*(-Pi + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 0.005744537441177679« 
Sinc[2*(Pi + x)]*Sinc[2«*(Pi/2 + y)]*Sinc[2*(-Pi + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 6.9091114514986625%*-6% 
Sinc[2«*(-Pi/2 + x)]«*Sinc[2«* (Pi + y)]*Sinc[2«(-Pi + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 6.9091114514986625%*-6% 
Sinc[2«*(Pi/2 + x)]*Sinc[2*(Pi + y)]*Sinc[2*(-Pi + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 0.19426493431552047*Sinc [2*x] « 
Sinc[2*y]*Sinc[2«*(-Pi/2 + z)]*Sinc[Sqrt[13]*Log[t/(1.**-6 - t)]] - 

0 .03340600104954632*Sinc[2*(-Pi + x)]*Sinc[2*y] *Sinc[2*(-Pi/2 + z)]* 
Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 

(0.019756074331108424 - 1.3803662110765446%*-7%I) *Sinc[2*(-Pi/2 + x)]* 
Sinc [2«*y] *Sinc[2«(-Pi/2 + z)]*Sinc[Sqrt [13] *Log[t/(1.**-6 - t)]] + 
(0.01975455832268188 + 1.3803662110369542**-7«I) *Sinc[2*(Pi/2 + x)]* 
Sinc[2*y]*Sinc[2«*(-Pi/2 + z)]*Sinc[Sqrt[13]*Log[t/(1.**-6 - t)]] - 
0.03340600104954632«Sinc[2*(Pi + x)]*Sinc[2«y] *Sinc[2*(-Pi/2 + z)]+* 
Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 0.03340600438748425*Sinc [2*x] + 
Sinc[2*(-Pi + y)]*Sinc[2*(-Pi/2 + z)]* 

Since [Sqrt [13] *Log[t/(1.**-6 - t)]] - 0.005744527287594969« 
Sinc[2«*(-Pi + x)]*Sinc[2«*(-Pi + y)]*Sinc[2*(-Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 

(0.0033985547481202812 - 1.380366211082677%*-7%I) *«Sinc[2*(-Pi/2 + x)]* 
Sinc[2«(-Pi + y)]*Sinc[2«*(-Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 

(0.0033957344119697245 + 1.3803662110828634%*-7*I)*Sinc[2*(Pi/2 + x)]* 
Sinc([2«*(-Pi + y)]*Sinc[2«*(-Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 0.005744527287594969« 

Sinc[2«* (Pi + x)]*Sinc[2*(-Pi + y)]*Sinc[2«*(-Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 8.15847931801218**-9*Sinc[2*x] * 
Sinc[2«*(-Pi/2 + y)]*Sinc[2«*(-Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 1.930922935277831**-8« 
Sinc[2*(-Pi + x)]*Sinc[2«(-Pi/2 + y)]*Sinc[2«(-Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 1.0149358426852221%*-6% 
Sinc[2«*(-Pi/2 + x)]«*Sinc[2«(-Pi/2 + y)]*Sinc[2«*(-Pi/2 + z)]l«* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 1.0236118311995716«*-6% 
Sinc[2«*(Pi/2 + x)]*Sinc[2«(-Pi/2 + y)]*Sinc[2«(-Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 1.930922935277831%*-8« 

Sinc[2* (Pi + x)]*Sinc[2«(-Pi/2 + y)]*Sinc[2«(-Pi/2 + z)]l* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 0.03951063403621358*Sinc [2*x] * 
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Sinc[2«*(Pi/2 + y)]*Sinc[2«(-Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 0.00679429066966187% 
Sinc[2«*(-Pi + x)]*Sinc[2«*(Pi/2 + y)]*Sinc[2«*(-Pi/2 + z)]* 

Since [Sqrt [13] *Log[t/(1.**-6 - t)]] - 0.004018958617977918* 
Sinc[2«*(-Pi/2 + x)]*Sinc[2«*(Pi/2 + y)]*Sinc[2«*(-Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 0.004016923980558435« 
Sinc[2«*(Pi/2 + x)]*Sinc[2«(Pi/2 + y)]*Sinc[2*(-Pi/2 + z)]«* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 0.00679429066966187« 
Sinc[2*(Pi + x)]*Sinc[2«*(Pi/2 + y)]*Sinc[2«*(-Pi/2 + z)]* 

Since [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 0.03340600438748425«Sinc [2+x] « 
Sinc[2«*(Pi + y)]*Sinc[2«*(-Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 0.005744527287594969« 
Sinc[2«(-Pi + x)]*Sinc[2«(Pi + y)]*Sinc[2«(-Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 

(0.0033985547481202812 - 1.380366211082677**-7*I) *Sinc[2*(-Pi/2 + x)]* 
Sinc[2* (Pi + y)]*Sinc[2*(-Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 

(0.0033957344119697245 + 1.3803662110828634%*-7*I)*Sinc[2*(Pi/2 + x)]* 
Sinc[2«*(Pi + y)]*Sinc[2«*(-Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 0.005744527287594969« 

Sinc[2* (Pi + x)]*Sinc[2« (Pi + y)]*Sinc[2«(-Pi/2 + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 0.19426493431552047*Sinc [2«x] * 
Sinc[2*y]*Sinc[2«*(Pi/2 + z)]*Sinc[Sqrt[13]*Log[t/(1.**-6 - t)]] + 

0 .03340600104954632*Sinc[2*(-Pi + x)]*Sinc[2*y]*Sinc[2*(Pi/2 + z)]+* 
Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 

(0.01975455832268188 + 1.3803662110765446+*-7*I) *Sinc[2*(-Pi/2 + x)]* 
Sinc[2*y]*Sinc[2«*(Pi/2 + z)]*Sinc[Sqrt[13]*Log[t/(1.**-6 - t)]] - 
(0.019756074331108424 - 1.3803662110369542%*-7%1I) *Sinc[2*(Pi/2 + x)]* 
Sinc[2*y]*Sinc[2«*(Pi/2 + z)]*Sinc[Sqrt [13] *Log[t/(1.**-6 - t)]] + 

0 .03340600104954632«Sinc[2* (Pi + x)]*Sinc[2*y]*Sinc[2«(Pi/2 + z)]* 
Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 0.03340600438748425*Sinc [2«x] * 
Sinc[2«*(-Pi + y)]*Sinc[2«*(Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 0.005744527287594969% 
Sinc[2«(-Pi + x)]*Sinc[2«*(-Pi + y)]*Sinc[2«*(Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 

(0.0033957344119697245 + 1.380366211082677**-7xI) *Sinc[2*(-Pi/2 + x)]* 
Sinc[2«*(-Pi + y)]*Sinc[2«*(Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 

(0.0033985547481202812 - 1.3803662110828634%*-7*I)*Sinc[2*(Pi/2 + x)]* 
Sinc[2«*(-Pi + y)]*Sinc[2«*(Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 0.005744527287594969% 
Sinc[2«*(Pi + x)]*Sinc[2«(-Pi + y)]«*Sinc[2«*(Pi/2 + z)]«* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 0.03951063403621358*Sinc [2«x] * 
Sinc[2«*(-Pi/2 + y)]*Sinc[2«*(Pi/2 + z)]«* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 0.006794290669661873« 
Sinc[2«*(-Pi + x)]*Sinc[2«*(-Pi/2 + y)]*Sinc[2*(Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 0.004016923980558435« 
Sinc[2«*(-Pi/2 + x)]*Sinc[2«*(-Pi/2 + y)]*Sinc[2*(Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 0.004018958617977918« 
Sinc[2«*(Pi/2 + x)]*Sinc[2«(-Pi/2 + y)]*Sinc[2«*(Pi/2 + z)]«* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 0.006794290669661873« 

Sinc[2«* (Pi + x)]*Sinc[2«(-Pi/2 + y)]«*Sinc[2«(Pi/2 + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 8.15847931911654%*-9+Sinc[2«x] * 
Sinc([2«*(Pi/2 + y)]*Sinc[2«(Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 1.9309229351673953%*-8* 
Sinc[2«*(-Pi + x)]*Sinc[2«*(Pi/2 + y)]*Sinc[2*(Pi/2 + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 1.0236118311995716**-6« 
Sinc[2«*(-Pi/2 + x)]*Sinc[2«*(Pi/2 + y)]*Sinc[2«*(Pi/2 + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 1.0149358426852221%*-6% 
Sinc[2«(Pi/2 + x)]*Sinc[2*(Pi/2 + y)]*Sinc[2«*(Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 1.9309229351673953%*-8% 
Sinc[2* (Pi + x)]*Sinc[2«(Pi/2 + y)]*Sinc[2«*(Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 0.03340600438748425*Sinc [2«x] * 
Sinc[2«*(Pi + y)]*Sinc[2*(Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 0.005744527287594969% 
Sinc[2«(-Pi + x)]*Sinc[2*(Pi + y)]«*Sinc[2«*(Pi/2 + z)]«* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 

(0.0033957344119697245 + 1.380366211082677**-7*I) *Sinc[2+*(-Pi/2 + x)]* 
Sinc[2* (Pi + y)]*Sinc[2*(Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 

(0.0033985547481202812 - 1.3803662110828634%*-7*I)*Sinc[2*(Pi/2 + x)]* 
Sinc[2*(Pi + y)]*Sinc[2*(Pi/2 + z)]l«* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 0.005744527287594969% 
Sinc[2«*(Pi + x)]*Sinc[2«(Pi + y)]*Sinc[2*(Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 4.244042763161842%*-6« 
Sinc[2«*(-Pi/2 + x)]*Sinc[2«*y]*Sinc[2*(Pi + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 4.2440427631618415«*-6% 
Sinc[2«*(Pi/2 + x)]*Sinc[2*y]*Sinc[2*(Pi + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 6.9091114514986625**-6« 
Sinc[2«*(-Pi/2 + x)]*Sinc[2«*(-Pi + y)]*Sinc[2*(Pi + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 6.9091114514986625%*-6% 
Sinc[2«*(Pi/2 + x)]*Sinc[2*(-Pi + y)]*Sinc[2«* (Pi + z)]«* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 0.033406003792346574«Sinc [2«x] * 
Sinc[2*(-Pi/2 + y)]*Sinc[2«*(Pi + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 0.005744537441177679« 
Sinc[2«*(-Pi + x)]*Sinc[2s(-Pi/2 + y)]*Sinc[2«*(Pi + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 

(0.0033940849529615577 - 1.380366211067981%*-7%I) *Sinc[2*(-Pi/2 + x)]* 
Sinc[2«*(-Pi/2 + y)]*Sinc[2«*(Pi + z)]* 
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Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 
(0.003400207226272135 + 1.380366211062865**-7«*I) *Sinc[2«(Pi/2 + x)]* 
Sinc[2«*(-Pi/2 + y)]*Sinc[2*(Pi + z)]* 
Since [Sqrt [13] *Log[t/(1.**-6 - t)]] + 0.005744537441177679« 
Sinc[2«* (Pi + x)]*Sinc[2«(-Pi/2 + y)]*Sinc[2*(Pi + z)]* 
Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 0.033406003792346574*Sinc[2+*x] + 
Sinc[2«*(Pi/2 + y)]*Sinc[2«(Pi + z)]* 
Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 0.005744537441177679« 
Sinc[2«*(-Pi + x)]*Sinc[2«*(Pi/2 + y)]*Sinc[2«*(Pi + z)]«* 
Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 
(0.003400207226272135 + 1.380366211067981**-7%I) *Sinc[2«(-Pi/2 + x)]* 
Sinc[2«*(Pi/2 + y)]*Sinc[2«*(Pi + z)]* 
Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 
(0.0033940849529615577 - 1.380366211062865**-7xI) *Sinc[2+*(Pi/2 + x)]* 
Sinc[2«*(Pi/2 + y)]*Sinc[2*(Pi + z)]* 
Since [Sqrt [13] *Log[t/(1.**-6 - t)]] - 0.005744537441177679« 
Sinc[2*(Pi + x)]*Sinc[2*(Pi/2 + y)]*Sinc[2*(Pi + z)]l«* 
Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 6.9091114514986625%*-6% 
Sinc[2«*(-Pi/2 + x)]*Sinc[2«*(Pi + y)]*Sinc[2«*(Pi + z)]«* 
Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 6.9091114514986625%*-6% 
Sinc[2*(Pi/2 + x)]*Sinc[2*(Pi + y)]*Sinc[2*(Pi + z)]l« 
Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 4.379697833326132%*-7« 
Sinc[2*(-Pi/2 + x)]*Sinc[2s*y]*Sinc[2+*z]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
4.379697833326133%*-7*Sinc[2+*(Pi/2 + x)]*Sinc[2*y]*Sinc[2*z] * 
Sinc [Sqrt [13] *(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
1.0805575723769594**-6*Sinc [2*(-Pi/2 + x)]*Sinc[2*(-Pi + y)]*Sinc[2*z]* 
Sinc [Sqrt [13] «(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
1.0805575723769594«*-6%Sinc [2«(Pi/2 + x)]*Sinc[2*(-Pi + y)]*Sinc[2«*z]« 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
0.1942648448105495«Sinc [2*x] *Sinc[2*(-Pi/2 + y)]*Sinc[2*z]« 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
0.03340597616795204*Sinc[2*(-Pi + x)]*Sinc([2«(-Pi/2 + y)]*Sinc[2«z]* 
Sinc[Sqrt [13] «(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
(0.01975467081815901 - 3.5144911800321895+*-8*I) *Sinc[2*(-Pi/2 + x)]* 
Sinc[2*(-Pi/2 + y)]*Sinc[2*z]* 
Since [Sqrt [13] *(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
(0.019755897494740927 + 3.5144911800144866**-8xI) *Sinc[2+*(Pi/2 + x)]* 
Sinc[2*(-Pi/2 + y)]*Sinc[2«z]* 
Since [Sqrt [13] «(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
0.03340597616795204*Sinc [2+ (Pi + x)]*Sinc[2«*(-Pi/2 + y)]*Sinc[2+*z]+* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
0.19426484481054948«Sinc [2*x] *Sinc[2*(Pi/2 + y)]*Sinc[2*z]* 
Sinc [Sqrt [13] «* (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
0 .03340597616795204«Sinc[2*(-Pi + x)]*Sinc[2*(Pi/2 + y)]*Sinc[2«z]* 
Sinc [Sqrt [13] *(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
(0.019755897494740927 + 3.5144911800321895**-8«I) *Sinc[2*(-Pi/2 + x)]* 
Sinc[2*(Pi/2 + y)]*Sinc[2+*z]*Sinc[Sqrt [13] *(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] + (0.01975467081815901 - 
3.5144911800144866%*-8%1) *«Sinc[2*(Pi/2 + x)]*Sinc[2«*(Pi/2 + y)]* 
Sinc [2*z] *Sinc [Sqrt [13] *(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
0 .03340597616795204«Sinc[2* (Pi + x)]*Sinc[2*(Pi/2 + y)]*Sinc[2«z]* 
Sinc [Sqrt [13] «* (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
1.0805575723769594«*-6*Sinc [2«(-Pi/2 + x)]*Sinc[2*(Pi + y)]*Sinc[2«*z]« 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
1.0805575723769594«*-6*Sinc [2*(Pi/2 + x)]*Sinc[2*(Pi + y)]*Sinc[2*z]* 
Since [Sqrt [13] *(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
1.0805575723724215**-6*Sinc [2*(-Pi/2 + x)]*Sinc[2*y] *Sinc[2*(-Pi + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
1.0805575723724215**-6*Sinc [2«(Pi/2 + x)]*Sinc[2*y]*Sinc[2*(-Pi + z)]* 
Sinc [Sqrt [13] «* (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
1.7590992572972645«*-6*Sinc [2*(-Pi/2 + x)]*Sinc[2«*(-Pi + y)]«* 
Sinc([2*(-Pi + z)]*Sinc[Sqrt [13] *(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] + 1.7590992572972645**-6*Sinc[2*(Pi/2 + x)]* 
Sinc[2*(-Pi + y)]*Sinc[2*(-Pi + z)]* 
Sinc[Sqrt [13] «(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
0. 033405975318093875*Sinc [2*x] *Sinc[2*(-Pi/2 + y)]*Sinc[2*(-Pi + z)]* 
Sinc [Sqrt [13] *(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
0 .005744526484050362*Sinc [2*(-Pi + x)]*Sinc[2*(-Pi/2 + y)]* 
Sinc[2«*(-Pi + z)]*Sinc[Sqrt [13] «*(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] - (0.0033963591391757628 - 
3.514491180315967«*-8%I) *Sinc[2*(-Pi/2 + x)]*Sinc[2«*(-Pi/2 + y)]* 
Sinc([2«*(-Pi + z)]*Sinc[Sqrt [13]«*(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] - (0.003397917905116128 + 
3.514491180424599«*-8%1)*Sinc[2«*(Pi/2 + x)]*Sinc[2*(-Pi/2 + y)]* 
Sinc([2«*(-Pi + z)]*Sinc[Sqrt [13]«*(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] + 0.005744526484050362*Sinc[2« (Pi + x)]* 
Sinc[2«*(-Pi/2 + y)]*Sinc[2«*(-Pi + z)]* 
Sinc [Sqrt [13] *(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
0. 033405975318093875*Sinc [2*x] *Sinc[2*(Pi/2 + y)]*Sinc[2*(-Pi + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
0.005744526484050362*Sinc[2*(-Pi + x)]*Sinc[2*(Pi/2 + y)]* 
Sinc([2*(-Pi + z)]*Sinc[Sqrt [13]*(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] + (0.003397917905116128 + 
3.514491180315988%*-8%I) *Sinc[2*(-Pi/2 + x)]*Sinc[2*(Pi/2 + y)]* 
Sinc([2«(-Pi + z)]*Sinc[Sqrt [13] *(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] + (0.0033963591391757628 - 
3.5144911804245776%*-8%1) *Sinc[2*(Pi/2 + x)]*Sinc[2*(Pi/2 + y)]* 
Sinc([2*(-Pi + z)]*Sinc[Sqrt [13] *(-(Pi/Sqrt[13]) + 
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Log[t/(1.**-6 - t)])] - 0.005744526484050362*Sinc[2«*(Pi + x)]* 
Sinc[2«*(Pi/2 + y)]*Sinc[2«*(-Pi + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
1.7590992572972645**-6*Sinc [2*(-Pi/2 + x)]*Sinc[2*(Pi + y)]* 
Sinc([2*(-Pi + z)]*Sinc[Sqrt [13] *(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] + 1.7590992572972645**-6*Sinc[2*(Pi/2 + x)]* 
Sinc[2«*(Pi + y)]*Sinc[2«*(-Pi + z)]* 
Since [Sqrt [13] «(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
0 .1942648441300861*Sinc [2*x] *Sinc[2«*y] *Sinc[2«(-Pi/2 + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
0. 033405974619761046*Sinc [2*(-Pi + x)]*Sinc[2s*y]*Sinc[2*(-Pi/2 + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
(0.019755476796745795 - 3.514491180226446**-8%I) *Sinc[2«(-Pi/2 + x)]* 
Sinc[2*y]*Sinc[2*(-Pi/2 + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
(0.019755090812208102 + 3.51449117982023**-8+I) *Sinc[2*(Pi/2 + x)]* 
Sinc[2*y]*Sinc[2*(-Pi/2 + z)]* 
Sinc [Sqrt [13] «* (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
0.033405974619761046*Sinc [2* (Pi + x)]*Sinc[2«*y] *Sinc[2«*(-Pi/2 + z)]* 
Sinc [Sqrt [13] «* (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
0 .0334059754696192xSinc [2«x] *Sinc[2«*(-Pi + y)]*Sinc[2«*(-Pi/2 + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
0.0057445238988898745*Sinc[2«(-Pi + x)]*Sinc[2«*(-Pi + y)]* 
Sinc([2«*(-Pi/2 + z)]*Sinc[Sqrt [13] «*(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] + (0.003397497174748252 - 
3.514491180334432**-8*I) *Sinc[2*(-Pi/2 + x)]*Sinc[2*(-Pi + y)]* 
Sinc[2«*(-Pi/2 + z)]*Sinc[Sqrt [13] *(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] + (0.003396779100852105 + 
3.514491180232661%*-8%1)*Sinc[2«*(Pi/2 + x)]*Sinc[2*(-Pi + y)]* 
Sinc[2«*(-Pi/2 + z)]*Sinc[Sqrt [13]«*(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] - 0.0057445238988898745*Sinc[2«(Pi + x)]* 
Sinc[2«(-Pi + y)]*Sinc[2«*(-Pi/2 + z)]* 
Sinc [Sqrt [13] «* (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
2.0771956573394124«*-9*Sinc [2*x] *Sinc[2*(-Pi/2 + y)]*Sinc[2«*(-Pi/2 + z)]«* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
4.916240124160756%*-9*Sinc[2*(-Pi + x)]*Sinc[2*(-Pi/2 + y)]* 
Sinc[2*(-Pi/2 + z)]+*Sinc[Sqrt [13] *(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] - 2.584085217645023**-7*Sinc[2*(-Pi/2 + x)]* 
Sinc[2«*(-Pi/2 + y)]*Sinc[2«*(-Pi/2 + z)]l* 
Since [Sqrt [13] «*(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
2.6061747855439034%*-7%Sinc [2% (Pi/2 + x)]*Sinc[2*(-Pi/2 + y)]* 
Sinc([2«(-Pi/2 + z)]*Sinc[Sqrt [13]«*(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] - 4.916240124160756**-9*Sinc[2*(Pi + x)]* 
Sinc[2«*(-Pi/2 + y)]*Sinc[2«*(-Pi/2 + z)]l* 
Sinc [Sqrt [13] *(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
0 .03951056796092696*Sinc [2*x] *Sinc[2*(Pi/2 + y)]*Sinc[2*(-Pi/2 + z)]» 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
0.006794276659946141*Sinc[2*(-Pi + x)]*Sinc[2*(Pi/2 + y)]* 
Sinc[2*(-Pi/2 + z)]+*Sinc[Sqrt [13] *(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] - 0.004018188761633151*Sinc[2«(-Pi/2 + x)]« 
Sinc([2«(Pi/2 + y)]*Sinc[2«(-Pi/2 + z)]* 
Sinc [Sqrt [13] «* (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
0 .004017670731205961*Sinc [2*(Pi/2 + x)]*Sinc[2«*(Pi/2 + y)]* 
Sinc([2«(-Pi/2 + z)]*Sinc[Sqrt [13] *(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] + 0.006794276659946141+*Sinc[2« (Pi + x)]* 
Sinc[2«*(Pi/2 + y)]*Sinc[2«(-Pi/2 + z)]* 
Since [Sqrt [13] *(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
0.0334059754696192*Sinc [2*x] *Sinc[2*(Pi + y)]*Sinc[2*(-Pi/2 + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
0.0057445238988898745*Sinc[2*(-Pi + x)]*Sinc[2*(Pi + y)]* 
Sinc([2«(-Pi/2 + z)]*Sinc[Sqrt [13]«*(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] + (0.003397497174748252 - 
3.514491180334432«*-8%I) *Sinc[2«*(-Pi/2 + x)]*Sinc[2*(Pi + y)]* 
Sinc([2«*(-Pi/2 + z)]*Sinc[Sqrt [13]«*(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] + (0.003396779100852105 + 
3.514491180232661%*-8«I)*Sinc[2*(Pi/2 + x)]*Sinc[2*(Pi + y)]* 
Sinc([2«*(-Pi/2 + z)]*Sinc[Sqrt [13] *(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] - 0.0057445238988898745*Sinc[2* (Pi + x)]* 
Sinc[2* (Pi + y)]*Sinc[2*(-Pi/2 + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
0.1942648441300861+Sinc [2*x] *Sinc[2+*y] *Sinc[2*(Pi/2 + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
0.033405974619761046*Sinc[2*(-Pi + x)]*Sinc[2*y]*Sinc[2«(Pi/2 + z)]* 
Sinc [Sqrt [13] «*(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
(0.019755090812208102 + 3.514491180226446%*-8%I) *Sinc[2«(-Pi/2 + x)]* 
Sinc[2*y]*Sinc[2«(Pi/2 + z)]*Sinc[Sqrt [13] «*(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] - (0.019755476796745795 - 
3.51449117982023**-8xI) *Sinc[2*(Pi/2 + x)]+*Sinc[2*y]* 
Sinc([2«*(Pi/2 + z)]*Sinc[Sqrt [13]*(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] + 0.033405974619761046*Sinc[2* (Pi + x)]* 
Sinc[2*y] *Sinc[2+*(Pi/2 + z)]+*Sinc[Sqrt [13]*(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] + 0.033405975469619195*Sinc [2*x] * 
Sinc([2«*(-Pi + y)]*Sinc[2«*(Pi/2 + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
0.0057445238988898745*Sinc[2«(-Pi + x)]*Sinc[2«*(-Pi + y)]* 
Sinc[2«*(Pi/2 + z)]*Sinc[Sqrt [13]*(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] - (0.003396779100852105 + 
3.514491180334432%*-8%I)*Sinc[2«*(-Pi/2 + x)]*Sinc[2«(-Pi + y)]«* 
Sinc[2«*(Pi/2 + z)]*Sinc[Sqrt [13]*(-(Pi/Sqrt[13]) + 
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Log[t/(1.**-6 - t)])] - (0.003397497174748252 - 
3.514491180232661%*-8%1I)*Sinc[2«*(Pi/2 + x)]*Sinc[2*(-Pi + y)]* 
Sinc([2«*(Pi/2 + z)]*Sinc[Sqrt [13]*(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] + 0.0057445238988898745*Sinc[2* (Pi + x)]* 
Sinc[2«*(-Pi + y)]*Sinc[2*(Pi/2 + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
0 .03951056796092695xSinc [2*x] *Sinc[2*(-Pi/2 + y)]*Sinc[2*(Pi/2 + z)]* 
Sinc [Sqrt [13] «(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
0.006794276659946141sSinc[2*(-Pi + x)]*Sinc[2*(-Pi/2 + y)]* 
Sinc([2«*(Pi/2 + z)]*Sinc[Sqrt [13]*(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] + 0.004017670731205961*Sinc[2%(-Pi/2 + x)]« 
Sinc[2«*(-Pi/2 + y)]*Sinc[2«*(Pi/2 + z)]«* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
0 .004018188761633151*Sinc[2*(Pi/2 + x)]*Sinc[2«*(-Pi/2 + y)]* 
Sinc([2«*(Pi/2 + z)]*Sinc[Sqrt [13]*(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] - 0.006794276659946141*Sinc[2* (Pi + x)]* 
Sinc[2«*(-Pi/2 + y)]*Sinc[2«*(Pi/2 + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
2.0771956573394124**-9*Sinc [2*x] *Sinc[2*(Pi/2 + y)]*Sinc[2*(Pi/2 + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
4.916240124160756%*-9*Sinc[2«*(-Pi + x)]*Sinc[2«(Pi/2 + y)]* 
Sinc[2«*(Pi/2 + z)]*Sinc[Sqrt [13]*(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] - 2.6061747855439034«*-7*Sinc[2«*(-Pi/2 + x)]* 
Sinc[2«*(Pi/2 + y)]*Sinc[2«*(Pi/2 + z)]* 
Sinc [Sqrt [13] *(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
2.584085217645023**-7*Sinc[2*(Pi/2 + x)]*Sinc[2*(Pi/2 + y)]* 
Sinc[2«*(Pi/2 + z)]*Sinc[Sqrt [13]*(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] + 4.916240124160756**-9«Sinc[2*(Pi + x)]* 
Sinc[2«*(Pi/2 + y)]*Sinc[2«(Pi/2 + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
0.033405975469619195*Sinc [2*x] *Sinc[2*(Pi + y)]*Sinc[2*(Pi/2 + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
0.0057445238988898745*Sinc[2*(-Pi + x)]*Sinc[2*(Pi + y)]* 
Sinc[2«(Pi/2 + z)]*Sinc[Sqrt [13]*(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] - (0.003396779100852105 + 
3.514491180334432**-8*1) *Sinc[2*(-Pi/2 + x)]*Sinc[2*(Pi + y)]+* 
Sinc[2«*(Pi/2 + z)]*Sinc[Sqrt [13]*(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] - (0.003397497174748252 - 
3.514491180232661%*-8%I)*Sinc[2*(Pi/2 + x)]*Sinc[2*(Pi + y)]* 
Sinc[2«(Pi/2 + z)]*Sinc[Sqrt [13]*(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] + 0.0057445238988898745*Sinc[2*(Pi + x)]* 
Sinc[2«*(Pi + y)]*Sinc[2*(Pi/2 + z)]* 
Sinc [Sqrt [13] «(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
1.0805575723724215**-6*Sinc [2«(-Pi/2 + x)]*Sinc[2*y]*Sinc[2*(Pi + z)]* 
Sinc [Sqrt [13] *(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
1.0805575723724215**-6*Sinc[2*(Pi/2 + x)]*Sinc[2*y]*Sinc[2*(Pi + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
1.7590992572972645**-6*Sinc [2*(-Pi/2 + x)]*Sinc[2*(-Pi + y)]* 
Sinc([2*(Pi + z)]*Sinc[Sqrt [13]*(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] + 1.7590992572972645«*-6*Sinc[2*(Pi/2 + x)]* 
Sinc[2*(-Pi + y)]*Sinc[2«*(Pi + z)]« 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
0. 033405975318093875*Sinc [2*x] *Sinc[2*(-Pi/2 + y)]*Sinc[2«*(Pi + z)]* 
Since [Sqrt [13] «(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
0.005744526484050362«Sinc[2*(-Pi + x)]*Sinc[2«(-Pi/2 + y)]* 
Sinc[2«* (Pi + z)]*Sinc[Sqrt [13]*(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] - (0.0033963591391757628 - 
3.514491180315967**-84I) *Sinc[2*(-Pi/2 + x)]*Sinc[2*(-Pi/2 + y)]* 
Sinc[2* (Pi + z)]*Sinc[Sqrt [13]*(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] - (0.003397917905116128 + 
3.514491180424599«*-8%I) *Sinc[2«*(Pi/2 + x)]*Sinc[2*(-Pi/2 + y)]* 
Sinc[2«* (Pi + z)]*Sinc[Sqrt [13]*(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] + 0.005744526484050362+*Sinc[2«* (Pi + x)]* 
Sinc[2*(-Pi/2 + y)]*Sinc[2«*(Pi + z)]* 
Sinc [Sqrt [13] «* (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
0.033405975318093875*Sinc [2*x] *Sinc[2*(Pi/2 + y)]*Sinc[2«*(Pi + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
0.005744526484050362*Sinc[2*(-Pi + x)]*Sinc[2*(Pi/2 + y)]* 
Sinc([2*(Pi + z)]*Sinc[Sqrt [13]*(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] + (0.003397917905116128 + 
3.514491180315988%*-8%1I)*Sinc[2«(-Pi/2 + x)]*Sinc[2«*(Pi/2 + y)]* 
Sinc[2«* (Pi + z)]*Sinc[Sqrt [13]*(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] + (0.0033963591391757628 - 
3.5144911804245776**-8%1) *«Sinc[2*(Pi/2 + x)]*Sinc[2*(Pi/2 + y)]* 
Sinc[2«*(Pi + z)]*Sinc[Sqrt [13]*(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] - 0.005744526484050362x*Sinc[2«*(Pi + x)]* 
Sinc[2«(Pi/2 + y)]*Sinc[2«(Pi + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
1.7590992572972645**-6*Sinc [2*(-Pi/2 + x)]*Sinc[2*(Pi + y)]* 
Sinc([2*(Pi + z)]*Sinc[Sqrt [13]*(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] + 1.7590992572972645**-6*Sinc[2*(Pi/2 + x)]* 
Sinc[2«*(Pi + y)]*Sinc[2«(Pi + z)]* 
Since [Sqrt [13] «(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
2.423963549910466%*-6xSinc[2*(-Pi/2 + x)]*Sinc[2«y] *Sinc[2«*z]* 
Sinc [Sqrt [13] * (Pi/Sgrt [13] + Log[t/(1.**-6 - t)])] + 
2.423963549910466%*-6xSinc[2«*(Pi/2 + x)]*Sinc[2s*y]*Sinc[2+z] « 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
5 .980396567743163%*-6*Sinc[2*(-Pi/2 + x)]*Sinc[2*(-Pi + y)]*Sinc[2+*z]* 
Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
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5 .980396567743163%*-6*Sinc[2*(Pi/2 + x)]*Sinc[2«*(-Pi + y)]*Sinc[2«*z]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
0.19426502871641924*Sinc [2*x] *Sinc[2*(-Pi/2 + y)]*Sinc[2*z]* 
Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
0 .033406037070265064*Sinc[2*(-Pi + x)]*Sinc[2«*(-Pi/2 + y)]*Sinc[2*z]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
(0.019751956480763583 - 1.9451118845113815%*-7%I) «Sinc[2*(-Pi/2 + x)]* 
Sinc[2«(-Pi/2 + y)]*Sinc[2+*z]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
(0.019758745578803416 + 1.9451118845816005%*-7%I) *«Sinc[2*(Pi/2 + x)]* 
Sinc[2«(-Pi/2 + y)]*Sinc[2+*z]« 
Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
0 .033406037070265064*Sinc[2* (Pi + x)]*Sinc[2«*(-Pi/2 + y)]*Sinc[2«z]* 
Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
0.19426502871641926*Sinc [2*x] *Sinc[2*(Pi/2 + y)]*Sinc[2*z]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
0.033406037070265064*Sinc[2*(-Pi + x)]*Sinc[2*(Pi/2 + y)]*Sinc[2*z]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
(0.019758745578803423 + 1.9451118843032146%*-7%I) «Sinc[2*(-Pi/2 + x)]* 
Sinc[2«(Pi/2 + y)]*Sinc[2«z]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
(0.01975195648076359 - 1.9451118843734337**-7«I) *Sinc[2*(Pi/2 + x)]* 
Sinc[2«(Pi/2 + y)]*Sinc[2«z]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
0 .033406037070265064*Sinc[2* (Pi + x)]*Sinc[2*(Pi/2 + y)]*Sinc[2«*z]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
5 .980396567743163+*-6*Sinc[2*(-Pi/2 + x)]*Sinc[2*(Pi + y)]*Sinc[2*z]* 
Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
5 .980396567743163**-6*Sinc[2*(Pi/2 + x)]*Sinc[2«*(Pi + y)]*Sinc[2«z]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
5 .980396567742633%*-6*Sinc[2*(-Pi/2 + x)]*Sinc[2*y]*Sinc[2«*(-Pi + z)]* 
Sinc [Sqrt [13] * (Pi/Sgrt [13] + Log[t/(1.**-6 - t)])] + 
5 .980396567742634%*-6*Sinc[2*(Pi/2 + x)]*Sinc[2*y]*Sinc[2«*(-Pi + z)]«* 
Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
9.73581817421927**-6*Sinc[2*(-Pi/2 + x)]*Sinc[2*(-Pi + y)]* 
Sinc([2«*(-Pi + z)]*Sinc[Sqrt [13] «*(Pi/Sgqrt [13] + Log[t/(1.**-6 - t)])] + 
9.73581817421927**-6*Sinc[2*(Pi/2 + x)]*Sinc[2*(-Pi + y)]* 
Sinc[2*(-Pi + z)]*Sinc[Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
0 .033406032366686655*Sinc [2*x] *Sinc[2*(-Pi/2 + y)]*Sinc[2«*(-Pi + z)]«* 
Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
0.005744546691155196*Sinc[2*(-Pi + x)]*Sinc[2«(-Pi/2 + y)]* 
Sinc[2«*(-Pi + z)]*Sinc[Sqrt [13]* (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
(0.0033928398726404286 - 1.9451118843655309%*-7*I) *Sinc[2«*(-Pi/2 + x)]* 
Sinc[2«*(-Pi/2 + y)]*Sinc[2«*(-Pi + z)]l«* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
(0.003401466933934184 + 1.9451118843631592**-7*I) *Sinc[2+*(Pi/2 + x)]* 
Sinc[2«*(-Pi/2 + y)]*Sinc[2«*(-Pi + z)]* 
Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
0 .005744546691155196*Sinc [2* (Pi + x)]*Sinc[2*(-Pi/2 + y)]* 
Sinc[2*(-Pi + z)]*Sinc[Sqrt [13]*(Pi/Sqrt [13] + Log[t/(1.**-6 - t) 
0 .033406032366686655*Sinc [2*x] *Sinc[2*(Pi/2 + y)]*Sinc[2«*(-Pi + z) 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
0 .005744546691155198«Sinc [2*(-Pi + x)]*Sinc[2«*(Pi/2 + y)]«* 
Sinc[2«*(-Pi + z)]*Sinc[Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
(0.003401466933934184 + 1.9451118844002253%*-7«I) «Sinc[2*(-Pi/2 + x)]* 
Sinc[2«*(Pi/2 + y)]*Sinc[2*(-Pi + z)]* 
Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
(0.0033928398726404286 - 1.9451118843978536**-7#I) *Sinc[2*(Pi/2 + x)]* 
Sinc[2«*(Pi/2 + y)]*Sinc[2*(-Pi + z)]* 
Sinc [Sqrt [13] «(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
0.005744546691155198«Sinc[2* (Pi + x)]*Sinc[2«*(Pi/2 + y)]* 
Sinc[2«*(-Pi + z)]*Sinc[Sqrt [13]*(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
9.73581817421927«*-6*Sinc[2«*(-Pi/2 + x)]*Sinc[2«(Pi + y)]* 
Sinc[2«*(-Pi + z)]*Sinc[Sqrt [13] «* (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
9.73581817421927«*-6*Sinc[2*(Pi/2 + x)]*Sinc[2*(Pi + y)]* 
Sinc[2*(-Pi + z)]*Sinc[Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
0.19426502495036607*Sinc [2+*x] *Sinc [2*y] *Sinc[2*(-Pi/2 + z)]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
0 .033406028501733576*Sinc [2*(-Pi + x)]*Sinc[2*y]*Sinc[2*(-Pi/2 + z)]* 
Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
(0.01975641720562333 - 1.9451118844262716**-7%I) *Sinc[2«(-Pi/2 + x)]* 
Sinc[2*y]+*Sinc[2«(-Pi/2 + z)]«* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
(0.019754280957926286 + 1.9451118843891546%*-7%I) «Sinc[2*(Pi/2 + x)]* 
Sinc[2*y]+*Sinc[2«(-Pi/2 + z)]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
0 .033406028501733576*Sinc[2* (Pi + x)]*Sinc[2*y] *Sinc[2*(-Pi/2 + z)]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
0 .03340603320531195*Sinc [2*x] #Sinc[2*(-Pi + y)]+*Sinc[2*(-Pi/2 + z)]l* 
Sinc [Sqrt [13] «*(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
0.005744532383467383+Sinc[2*(-Pi + x)]*Sinc[2*(-Pi + y)]* 
Sinc[2«(-Pi/2 + z)]+*Sinc[Sqrt [13] *(Pi/Sqrt [13] + 

Log[t/(1.**-6 - t)])] + (0.003399138381585316 - 

1.9451118843989378%*-7%1I) *Sinc[2*(-Pi/2 + x)]*Sinc[2*(-Pi + y)]* 

Sinc[2«(-Pi/2 + z)]+*Sinc[Sqrt [13]*(Pi/Sqrt [13] + 

Log[t/(1.**-6 - t)])] + (0.0033951641706343465 + 

1.945111884399141«*-7*I) *Sinc[2«*(Pi/2 + x)]*Sinc[2*(-Pi + y)]* 

Sinc[2«(-Pi/2 + z)]+*Sinc[Sqrt [13] *(Pi/Sqrt [13] + 

Log[t/(1.**-6 - t)])] - 0.005744532383467383*Sinc[2* (Pi + x)]* 
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Sinc[2«*(-Pi + y)]*Sinc[2«*(-Pi/2 + z)]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
1.1496333628858867**-8%*Sinc[2*x] *Sinc[2*(-Pi/2 + y)]*Sinc[2*(-Pi/2 + z)]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
2.720916418911993%*-8*Sinc[2*(-Pi + x)]*Sinc[2*(-Pi/2 + y)]* 
Sinc[2«(-Pi/2 + z)]*Sinc[Sqrt [13] *(Pi/Sqrt [13] + 

Log[t/(1.**-6 - t)])] - 1.430173326989669%*-6*Sinc[2«(-Pi/2 + x)]* 
Sinc[2«*(-Pi/2 + y)]«*Sinc[2«(-Pi/2 + z)]l* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
1.4423988939827633%~-6xSinc[2«(Pi/2 + x)]*Sinc[2«(-Pi/2 + y)]«* 
Sinc[2«(-Pi/2 + z)]*Sinc[Sqrt [13]«*(Pi/Sqrt [13] + 

Log[t/(1.**-6 - t)])] - 2.720916418911993%*-8*Sinc[2*(Pi + x)]* 
Sinc[2«(-Pi/2 + y)]«*Sinc[2«*(-Pi/2 + z)]* 
Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
0.03951070011155834*Sinc [2*x] *Sinc[2*(Pi/2 + y)]+*Sinc[2*(-Pi/2 + z)]* 
Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
0 .006794304679397165*Sinc [2*(-Pi + x)]*Sinc[2*(Pi/2 + y)]* 
Sinc[2«(-Pi/2 + z)]*Sinc[Sqrt [13] *(Pi/Sqrt [13] + 

Log[t/(1.**-6 - t)])] - 0.004019386383226745*Sinc[2«(-Pi/2 + x)]« 
Sinc[2«*(Pi/2 + y)]*Sinc[2«(-Pi/2 + z)]«* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
0 .004016519321051555*Sinc [2*(Pi/2 + x)]*Sinc[2«*(Pi/2 + y)]* 
Sinc[2«*(-Pi/2 + z)]+*Sinc[Sqrt [13] *(Pi/Sqrt [13] + 

Log[t/(1.**-6 - t)])] + 0.006794304679397165*Sinc[2* (Pi + x)]* 
Sinc[2«*(Pi/2 + y)]*Sinc[2«(-Pi/2 + z)]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
0 .03340603320531195*Sinc [2*x] *Sinc[2*(Pi + y)]*Sinc[2*(-Pi/2 + z)]+* 
Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
0.005744532383467383*Sinc[2*(-Pi + x)]*Sinc[2*(Pi + y)]+ 
Sinc[2*(-Pi/2 + z)]+*Sinc[Sqrt [13] *(Pi/Sqrt [13] + 

Log[t/(1.**-6 - t)])] + (0.003399138381585316 - 

1.9451118843989378%*-7%1I) *Sinc[2*(-Pi/2 + x)]*Sinc[2«*(Pi + y)]« 

Sinc[2«*(-Pi/2 + z)]*Sinc[Sqrt [13]*(Pi/Sqrt [13] + 

Log[t/(1.**-6 - t)])] + (0.0033951641706343465 + 

1.945111884399141**-7*I) *Sinc[2*(Pi/2 + x)]*Sinc[2*(Pi + y)]* 

Sinc[2«(-Pi/2 + z)]*Sinc[Sqrt [13] *(Pi/Sqrt [13] + 

Log[t/(1.**-6 - t)])] - 0.005744532383467383*Sinc[2+* (Pi + x)]* 
Sinc[2«* (Pi + y)]*Sinc[2«(-Pi/2 + z)]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
0 .19426502495036607«Sinc [2*x] *Sinc [2*y] *Sinc[2*(Pi/2 + z)]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
0.033406028501733576*Sinc[2*(-Pi + x)]*Sinc[2*y]*Sinc[2«(Pi/2 + z)]* 
Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
(0.019754280957926286 + 1.9451118844262843%*-7%I) «Sinc[2*(-Pi/2 + x)]* 
Sinc[2*y]*Sinc[2«*(Pi/2 + z)]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.** - t)))] - 
(0.01975641720562333 - 1.945111884389142**-7+I)*Sinc[2*(Pi/2 + x)]* 
Sinc[2*y]*Sinc[2*(Pi/2 + z)]* 
Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
0 .033406028501733576*Sinc[2* (Pi + x)]*Sinc[2*y]*Sinc[2*(Pi/2 + z)]* 
Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
0 .03340603320531195«Sinc [2*x] *Sinc[2*(-Pi + y)]*Sinc[2*(Pi/2 + z)]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
0.005744532383467384*Sinc[2*(-Pi + x)]*Sinc[2*(-Pi + y)]* 
Sinc[2«*(Pi/2 + z)]+*Sinc[Sqrt [13]*(Pi/Sqrt[13] + Log[t/(1.**-6 - t)])] 
(0.0033951641706343474 + 1.9451118843989548%*-7*I) *Sinc[2*(-Pi/2 + x)]* 
Sinc[2«*(-Pi + y)]*Sinc[2«*(Pi/2 + z)]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
(0.003399138381585317 - 1.9451118843991242**-7*I) *Sinc[2+*(Pi/2 + x)]* 
Sinc[2«*(-Pi + y)]*Sinc[2«*(Pi/2 + z)]* 
Sinc [Sqrt [13] * (Pi/Sgrt [13] + Log[t/(1.**-6 - t)])] + 
0.005744532383467384*Sinc[2* (Pi + x)]*Sinc[2*(-Pi + y)]* 
Sinc[2«*(Pi/2 + z)]*Sinc[Sqrt [13]*(Pi/Sqrt[13] + Log[t/(1.**-6 - t)])] - 
0 .03951070011155834%Sinc [2*x] «Sinc[2*(-Pi/2 + y)]*Sinc[2«*(Pi/2 + z)]« 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
0.006794304679397165*Sinc[2*(-Pi + x)]*Sinc[2*(-Pi/2 + y)]* 
Sinc([2*(Pi/2 + z)]*Sinc[Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
0.004016519321051555*Sinc [2*(-Pi/2 + x)]*Sinc[2*(-Pi/2 + y)]* 
Sinc[2*(Pi/2 + z)]*Sinc[Sgrt[13]*(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
0 .004019386383226745*Sinc[2*(Pi/2 + x)]*Sinc[2«*(-Pi/2 + y)]* 
Sinc[2*(Pi/2 + z)]*Sinc[Sqrt [13]*(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] 
0.006794304679397165«Sinc[2* (Pi + x)]*Sinc[2«(-Pi/2 + y)]* 
Sinc[2«*(Pi/2 + z)]+*Sinc[Sqrt [13]*(Pi/Sqrt[13] + Log[t/(1.**-6 - t)])] + 
1.1496333627754508%*-8%Sinc [2*x] *Sinc[2*(Pi/2 + y)]*Sinc[2«*(Pi/2 + z)]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
2.720916419022429%*-8%Sinc[2«*(-Pi + x)]*Sinc[2«*(Pi/2 + y)]* 
Sinc[2*(Pi/2 + z)]+*Sinc[Sqrt [13]*(Pi/Sqrt[13] + Log[t/(1.**-6 - t)])] 
1.4423988939827633**-6*Sinc [2*(-Pi/2 + x)]*Sinc[2*(Pi/2 + y)]* 
Sinc([2*(Pi/2 + z)]+*Sinc[Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
1.430173326989669**-6*Sinc[2*(Pi/2 + x)]*Sinc[2*(Pi/2 + y)]* 
Sinc([2*(Pi/2 + z)]+*Sinc[Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
2.720916419022429%*-8*Sinc[2* (Pi + x)]*Sinc[2*(Pi/2 + y)]* 
Sinc[2«*(Pi/2 + z)]*Sinc[Sqrt [13]*(Pi/Sqrt[13] + Log[t/(1.**-6 - t)])] + 
0 .03340603320531195*Sinc [2*x] *Sinc[2*(Pi + y)]*Sinc[2«*(Pi/2 + z)]«* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
0.005744532383467384*Sinc[2*(-Pi + x)]*Sinc[2*(Pi + y)]+* 
Sinc[2*(Pi/2 + z)]+*Sinc[Sqrt [13]*(Pi/Sqrt[13] + Log[t/(1.**-6 - t)])] - 
(0.0033951641706343474 + 1.9451118843989548%*-7*I) *Sinc[2«*(-Pi/2 + x)]s* 
Sinc[2*(Pi + y)]*Sinc[2«(Pi/2 + z)]* 
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Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 

(0.003399138381585317 - 1.9451118843991242%*-7+I) *«Sinc[2*(Pi/2 + x)]* 

Sinc([2«* (Pi + y)]*Sinc[2*(Pi/2 + z)]* 

Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

0.005744532383467384*Sinc[2* (Pi + x)]*Sinc[2*(Pi + y)]* 

Sinc([2*(Pi/2 + z)]*Sinc[Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 

5 .980396567742633%*-6*Sinc[2*(-Pi/2 + x)]*Sinc[2*y]*Sinc[2«*(Pi + z)]«* 

Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

5 .980396567742634%*-6*Sinc([2*(Pi/2 + x)]*Sinc[2*y]*Sinc[2«*(Pi + z)]* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 

9.73581817421927**-6%Sinc[2*(-Pi/2 + x)]*Sinc[2«*(-Pi + y)]* 

Sinc[2«*(Pi + z)]*Sinc[Sqrt[13]*(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

9.73581817421927«*-6*Sinc[2*(Pi/2 + x)]*Sinc[2*(-Pi + y)]* 

Sinc([2*(Pi + z)]*Sinc[Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

0.033406032366686655+Sinc [2*x] *Sinc [2*(-Pi/2 + y)]*Sinc[2*(Pi + z)]* 

Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

0 .005744546691155196*Sinc [2*(-Pi + x)]*Sinc[2*(-Pi/2 + y)]* 

Sinc[2*(Pi + z)]*Sinc[Sqrt[13]*(Pi/Sqrt[13] + Log[t/(1.**-6 - t)])] - 

(0.0033928398726404286 - 1.9451118843655309%*-7*I) *Sinc[2*(-Pi/2 + x)]s* 

Sinc[2*(-Pi/2 + y)]*Sinc[2«*(Pi + z)]* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 

(0.003401466933934184 + 1.9451118843631592%*-7%I) *«Sinc[2*(Pi/2 + x)]* 

Sinc[2*(-Pi/2 + y)]*Sinc[2*(Pi + z)]* 

Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

0 .005744546691155196*Sinc [2* (Pi + x)]*Sinc[2*(-Pi/2 + y)]* 

Sinc[2*(Pi + z)]*Sinc[Sqrt[13]*(Pi/Sqrt[13] + Log[t/(1.**-6 - t)])] - 

0 .033406032366686655+*Sinc [2*x] *Sinc[2*(Pi/2 + y)]*Sinc[2*(Pi + z)]+* 

Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 

0 .005744546691155198«Sinc [2*(-Pi + x)]*Sinc[2«(Pi/2 + y)]«* 

Sinc[2*(Pi + z)]*Sinc[Sqrt[13]*(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(0.003401466933934184 + 1.9451118844002253%*-7«I) «Sinc[2*(-Pi/2 + x)]* 

Sinc([2«*(Pi/2 + y)]*Sinc[2*(Pi + z)]* 

Sinc [Sqrt [13] * (Pi/Sgrt [13] + Log[t/(1.**-6 - t)])] + 

(0.0033928398726404286 - 1.9451118843978536%*-7*I) *Sinc[2*(Pi/2 + x)]* 

Sinc[2«*(Pi/2 + y)]*Sinc[2*(Pi + z)]* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 

0.005744546691155198*Sinc [2s (Pi + x)]*Sinc[2*(Pi/2 + y)]* 

Sinc[2*(Pi + z)]*Sinc[Sqrt[13]*(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 

9.73581817421927**-6*Sinc[2«*(-Pi/2 + x)]*Sinc[2*(Pi + y)]* 

Sinc[2*(Pi + z)]*Sinc[Sqrt [13] «*(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

9.73581817421927«*-6*Sinc[2«*(Pi/2 + x)]*Sinc[2*(Pi + y)]* 

Sinc[2*(Pi + z)]*Sinc[Sqrt[13]*(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])]], 
uh2 -> Function[{x, y, z, t}, -0.19426493431552616*Sinc[2«(-Pi/2 + x)]* 

Sinc [2*y] *Sinc [2*z] *«Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 

0 .19426493431552616«Sinc[2«*(Pi/2 + x)]*Sinc[2s*y] *Sinc[2+*z] * 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 0.033406001049540626« 

Sinc[2«*(-Pi/2 + x)]*Sinc[2«*(-Pi + y)]*Sinc[2*z]* 

Since [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 0.03340600104954062« 

Sinc[2«*(Pi/2 + x)]*Sinc[2*(-Pi + y)]*Sinc[2«*z]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 1.720188108581885**-6*Sinc[2«x] * 

Sinc[2«(-Pi/2 + y)]*Sinc[2«z] *Sinc[Sqrt [13] *Log[t/(1.**-6 - t)]] - 

4.244042776431004%*-6*Sinc[2«*(-Pi + x)]*Sinc[2«*(-Pi/2 + y)]*Sinc[2«z]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 

(0.01975607433110864 - 1.3803662109291351**-7%I) *Sinc[2«(-Pi/2 + x)]* 

Sinc[2«*(-Pi/2 + y)]«*Sinc[2*z]*Sinc[Sqrt [13] *Log[t/(1.**-6 - t)]] - 

(0.019754558322681696 + 1.3803662108407875%*-7x1I) «Sinc[2*(Pi/2 + x)]* 

Sinc([2«(-Pi/2 + y)]*Sinc[2*z]*Sinc[Sqrt [13] *«Log[t/(1.**-6 - t)]] - 

4.244042776431004%*-6*Sinc[2* (Pi + x)]*Sinc[2*(-Pi/2 + y)]*Sinc[2*z]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 1.7201881085810272«*-6*Sinc [2*x]* 

Sinc[2*(Pi/2 + y)]*Sinc[2*z]*Sinc[Sqrt [13] *Log[t/(1.**-6 - t)]] + 

4.244042776431861%*-6%*Sinc[2*(-Pi + x)]*Sinc[2«(Pi/2 + y)]*Sinc[2«*z]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 

(0.01975455832268169 + 1.380366210947471%*-7*1) *Sinc[2«*(-Pi/2 + x)]* 

Sinc[2«*(Pi/2 + y)]+*Sinc[2*z]*Sinc[Sqrt [13] *Log[t/(1.**-6 - t)]] - 

(0.019756074331108636 - 1.3803662108591213%*-7%I) *Sinc[2*(Pi/2 + x)]* 

Sinc[2*(Pi/2 + y)]*Sinc[2*z]*Sinc[Sqrt [13] *Log[t/(1.**-6 - t)]] + 

4.244042776431861**-6*Sinc[2*(Pi + x)]*Sinc[2*(Pi/2 + y)]+*Sinc[2*z]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 0.033406001049540626« 

Sinc[2«*(-Pi/2 + x)]*Sinc[2* (Pi + y)]*Sinc[2«*z]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 0.03340600104954062« 

Sinc[2«*(Pi/2 + x)]*Sinc[2«(Pi + y)]*Sinc[2«z]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 0.03340600438747674« 

Sinc[2«(-Pi/2 + x)]*Sinc[2«*y]*Sinc[2*(-Pi + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 0.03340600438747675« 

Sinc[2«*(Pi/2 + x)]*Sinc[2*y]*Sinc[2«*(-Pi + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 0.00574452728760246« 

Sinc[2«*(-Pi/2 + x)]*Sinc[2«*(-Pi + y)]*Sinc[2«*(-Pi + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 0.00574452728760246« 

Sinc[2«*(Pi/2 + x)]*Sinc[2*(-Pi + y)]*Sinc[2«*(-Pi + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 4.244042755299873%*-6*Sinc [2*x] * 

Sinc[2«*(-Pi/2 + y)]*Sinc[2«*(-Pi + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 6.909111431333901%*-6« 

Sinc([2«*(-Pi + x)]*Sinc[2«*(-Pi/2 + y)]*Sinc[2«*(-Pi + z)]«* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 

(0.00339855474810932 - 1.380366214685622%*-7*I)*Sinc[2*(-Pi/2 + x)]«* 

Sinc[2«*(-Pi/2 + y)]*Sinc[2«*(-Pi + z)]l«* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 

(0.0033957344119806727 + 1.3803662146856199x*-7*I) *Sinc[2*(Pi/2 + x)]* 

Sinc[2«*(-Pi/2 + y)]*Sinc[2«*(-Pi + z)]* 


156 


Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 6.909111431333901%*-6« 
Sinc[2«* (Pi + x)]*Sinc[2«(-Pi/2 + y)]*Sinc[2«(-Pi + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 4.2440427552996435**-6xSinc [2*x] * 
Sinc[2«*(Pi/2 + y)]*Sinc[2*(-Pi + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 6.909111431334132%*-6« 
Sinc[2«*(-Pi + x)]*Sinc[2«*(Pi/2 + y)]*Sinc[2«*(-Pi + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 

(0.0033957344119806727 + 1.380366214703943%*-7%I) «Sinc[2*(-Pi/2 + x)]* 
Sinc[2«*(Pi/2 + y)]*Sinc[2*(-Pi + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 

(0.00339855474810932 - 1.3803662147039451**-7«I) *Sinc[2*(Pi/2 + x)]* 
Sinc[2«*(Pi/2 + y)]*Sinc[2«*(-Pi + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 6.909111431334132%*-6« 
Sinc[2«* (Pi + x)]*Sinc[2«(Pi/2 + y)]*Sinc[2*(-Pi + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 0.00574452728760246« 
Sinc[2«*(-Pi/2 + x)]*Sinc[2*(Pi + y)]*Sinc[2«*(-Pi + z)]* 

Since [Sqrt [13] *Log[t/(1.**-6 - t)]] + 0.00574452728760246« 
Sinc[2«*(Pi/2 + x)]*Sinc[2*(Pi + y)]*Sinc[2«(-Pi + z)]«* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 0.1942649369881408«Sinc [2+*x] * 
Sinc[2*y]*Sinc[2«*(-Pi/2 + z)]*Sinc[Sqrt[13]*Log[t/(1.**-6 - t)]] + 
0 .03340600379234614*Sinc[2*(-Pi + x)]*Sinc[2«*y] *Sinc[2*(-Pi/2 + z)]* 
Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 8.158474555652884%*-9« 
Sinc[2«*(-Pi/2 + x)]*Sinc[2«*y]*Sinc[2«(-Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 0.03951063403621705« 
Sinc[2«*(Pi/2 + x)]*Sinc[2*y]*Sinc[2*(-Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 0.03340600379234614« 
Sinc[2*(Pi + x)]*Sinc[2*y]*Sinc[2*(-Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 0.03340600713028473*Sinc [2«x] * 
Sinc[2«(-Pi + y)]*Sinc[2«*(-Pi/2 + z)]«* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 0.005744537441173167« 
Sinc([2«(-Pi + x)]*Sinc[2«*(-Pi + y)]*Sinc[2«(-Pi/2 + z)]«* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 1.930923411528479%*-8« 
Sinc[2«(-Pi/2 + x)]*Sinc[2«*(-Pi + y)]*Sinc[2«(-Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 0.006794290669658324« 
Sinc[2«*(Pi/2 + x)]*Sinc[2*(-Pi + y)]*Sinc[2«*(-Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 0.005744537441173167« 

Sinc[2«* (Pi + x)]*Sinc[2*(-Pi + y)]*Sinc[2«*(-Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 

(0.019752908736521198 - 1.3803662147040907%*-7«I) «Sinc[2+*x] * 
Sinc[2«*(-Pi/2 + y)]*Sinc[2«*(-Pi/2 + z)]l* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 

(0.0033940849529609006 - 1.380366212999725%*-7%I) «Sinc[2*(-Pi + x)]«* 
Sinc[2«(-Pi/2 + y)]«*Sinc[2«*(-Pi/2 + z)]l* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 1.0149358463480349%*-6% 
Sinc[2«*(-Pi/2 + x)]«*Sinc[2«*(-Pi/2 + y)]*Sinc[2«*(-Pi/2 + z)]l«* 

Since [Sqrt [13] *Log[t/(1.**-6 - t)]] + 0.004016923980559744« 
Sinc[2«*(Pi/2 + x)]*Sinc[2«*(-Pi/2 + y)]*Sinc[2«*(-Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 

(0.0033940849529609006 - 1.380366212999725**-7*I) *Sinc[2*(Pi + x)]* 
Sinc[2«*(-Pi/2 + y)]«*Sinc[2«*(-Pi/2 + z)]l* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 

(0.019757726682116474 + 1.3803662120995674%*-7«I) «Sinc[2+*x] + 
Sinc([2«*(Pi/2 + y)]*Sinc[2«(-Pi/2 + z)]«* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 

(0.003400207226271937 + 1.3803662155950352%*-7%I) *«Sinc[2*(-Pi + x)]«* 
Sinc[2«*(Pi/2 + y)]*Sinc[2*(-Pi/2 + z)]«* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 1.0236118348967184**-6% 
Sinc[2«*(-Pi/2 + x)]*Sinc[2«*(Pi/2 + y)]*Sinc[2«*(-Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 0.004018958617976579« 
Sinc[2«*(Pi/2 + x)]*Sinc[2«(Pi/2 + y)]*Sinc[2*(-Pi/2 + z)]«* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 

(0.003400207226271937 + 1.3803662155950352%*-7%I) *Sinc[2*(Pi + x)]* 
Sinc[2«*(Pi/2 + y)]*Sinc[2«(-Pi/2 + z)]«* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 0.03340600713028473*Sinc [2*x] * 
Sinc[2*(Pi + y)]*Sinc[2*(-Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 0.005744537441173167« 
Sinc[2*(-Pi + x)]*Sinc[2«*(Pi + y)]*Sinc[2«*(-Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 1.930923411528479«*-8« 
Sinc[2«*(-Pi/2 + x)]*Sinc[2*(Pi + y)]*Sinc[2*(-Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 0.006794290669658324« 
Sinc[2«*(Pi/2 + x)]*Sinc[2*(Pi + y)]*Sinc[2«(-Pi/2 + z)]«* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 0.005744537441173167« 

Sinc[2« (Pi + x)]*Sinc[2«(Pi + y)]*Sinc[2«(-Pi/2 + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 0.1942649369881408«Sinc [2+*x] * 
Sinc[2*y]+*Sinc[2«*(Pi/2 + z)]*Sinc[Sqrt[13]*Log[t/(1.**-6 - t)]] - 

0 .03340600379234614«Sinc[2*(-Pi + x)]*Sinc[2*y]*Sinc[2*(Pi/2 + z)]* 
Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 0.03951063403621705« 
Sinc[2«*(-Pi/2 + x)]*Sinc[2*y]*Sinc[2«*(Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 8.158474555652884%*-9« 
Sinc[2«*(Pi/2 + x)]*Sinc[2*y]*Sinc[2«*(Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 0.03340600379234614« 

Sinc[2«* (Pi + x)]*Sinc[2*y]*Sinc[2«*(Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 0.03340600713028473*Sinc [2«x] * 
Sinc[2«*(-Pi + y)]*Sinc[2«*(Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 0.005744537441173166« 
Sinc[2«(-Pi + x)]*Sinc[2«*(-Pi + y)]*Sinc[2«(Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 0.006794290669658324% 
Sinc[2«(-Pi/2 + x)]*Sinc[2*(-Pi + y)]*Sinc[2«*(Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 1.930923411528479«*-8« 
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Sinc[2«*(Pi/2 + x)]*Sinc[2*(-Pi + y)]*Sinc[2«*(Pi/2 + z)]«* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 0.005744537441173166« 

Sinc[2«* (Pi + x)]*Sinc[2*(-Pi + y)]*Sinc[2«*(Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 

(0.019757726682116478 + 1.380366212105206**-7*I) *Sinc [2*x] * 
Sinc[2«*(-Pi/2 + y)]*Sinc[2«*(Pi/2 + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 

(0.0034002072262719367 + 1.3803662156006738%*-7*I) *Sinc[2*(-Pi + x)]* 
Sinc[2«*(-Pi/2 + y)]*Sinc[2«*(Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 0.0040189586179765775« 
Sinc[2«*(-Pi/2 + x)]*Sinc[2«*(-Pi/2 + y)]*Sinc[2«(Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 1.0236118348988868%*-6% 
Sinc[2«*(Pi/2 + x)]*Sinc[2«(-Pi/2 + y)]*Sinc[2«*(Pi/2 + z)]«* 
Sinc[Sqrt [13] *Log[t/(1.**-6 - t)]] + 

(0.0034002072262719367 + 1.3803662156006738**-7#I)*Sinc[2*(Pi + x)]* 
Sinc[2«*(-Pi/2 + y)]*Sinc[2«*(Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 

(0.019752908736521198 - 1.38036621470919«*-7*I) *Sinc [2*x] * 
Sinc[2«(Pi/2 + y)]*Sinc[2«(Pi/2 + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 

(0.0033940849529608998 - 1.38036621298314**-7«I) *Sinc[2«(-Pi + x)]* 
Sinc([2«*(Pi/2 + y)]*Sinc[2«(Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 0.004016923980559743« 
Sinc[2«*(-Pi/2 + x)]*Sinc[2«*(Pi/2 + y)]*Sinc[2«*(Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 1.0149358463471675**-6% 
Sinc[2«*(Pi/2 + x)]*Sinc[2«*(Pi/2 + y)]*Sinc[2*(Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 

(0.0033940849529608998 - 1.38036621298314**-7*I)*Sinc[2*(Pi + x)]* 
Sinc[2«(Pi/2 + y)]*Sinc[2«(Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 0.03340600713028473*Sinc [2«x] * 
Sinc[2«*(Pi + y)]*Sinc[2*(Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 0.005744537441173166« 
Sinc[2«(-Pi + x)]*Sinc[2«(Pi + y)]*Sinc[2«(Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 0.006794290669658324* 
Sinc[2«*(-Pi/2 + x)]*Sinc[2«*(Pi + y)]*Sinc[2«*(Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 1.930923411528479«*-8« 
Sinc[2«*(Pi/2 + x)]*Sinc[2*(Pi + y)]*Sinc[2*(Pi/2 + z)]* 

Since [Sqrt [13] *Log[t/(1.**-6 - t)]] - 0.005744537441173166« 
Sinc[2«*(Pi + x)]*Sinc[2«(Pi + y)]*Sinc[2«*(Pi/2 + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 0.03340600438747674« 
Sinc[2«*(-Pi/2 + x)]«*Sinc[2*y]*Sinc[2*(Pi + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 0.03340600438747675« 
Sinc[2«*(Pi/2 + x)]*Sinc[2*y]*Sinc[2«*(Pi + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 0.00574452728760246« 
Sinc[2*(-Pi/2 + x)]*Sinc[2«*(-Pi + y)]*Sinc[2*(Pi + z)]* 

Since [Sqrt [13] *Log[t/(1.**-6 - t)]] + 0.00574452728760246« 
Sinc[2«*(Pi/2 + x)]*Sinc[2*(-Pi + y)]*Sinc[2*(Pi + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 4.244042755299873%*-6*Sinc[2*x] * 
Sinc[2«*(-Pi/2 + y)]*Sinc[2*(Pi + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 6.909111431333901%*-6« 
Sinc[2«(-Pi + x)]*Sinc[2s(-Pi/2 + y)]*Sinc[2«*(Pi + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 

(0.00339855474810932 - 1.380366214685622%*-7*I) *Sinc[2«*(-Pi/2 + x)]«* 
Sinc[2*(-Pi/2 + y)]*Sinc[2«*(Pi + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 

(0.0033957344119806727 + 1.3803662146856199«*-7*I) *Sinc[2*(Pi/2 + x)]* 
Sinc[2«*(-Pi/2 + y)]*Sinc[2«*(Pi + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 6.909111431333901**-6« 
Sinc[2«* (Pi + x)]*Sinc[2«(-Pi/2 + y)]*Sinc[2«* (Pi + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 4.2440427552996435%*-6xSinc [2*x] * 
Sinc[2«*(Pi/2 + y)]*Sinc[2«(Pi + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 6.909111431334132%*-6« 
Sinc[2«*(-Pi + x)]*Sinc[2«*(Pi/2 + y)]*Sinc[2«*(Pi + z)]«* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 

(0.0033957344119806727 + 1.380366214703943%*-7%I) «Sinc[2*(-Pi/2 + x)]* 
Sinc[2«*(Pi/2 + y)]*Sinc[2«(Pi + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 

(0.00339855474810932 - 1.3803662147039451+*-7*I) *Sinc[2*(Pi/2 + x)]* 
Sinc[2«*(Pi/2 + y)]*Sinc[2*(Pi + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 6.909111431334132«*-6« 
Sinc[2* (Pi + x)]+*Sinc[2*(Pi/2 + y)]*Sinc[2*(Pi + z)]« 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 0.00574452728760246« 
Sinc[2«(-Pi/2 + x)]*Sinc[2«* (Pi + y)]*Sinc[2«(Pi + z)]«* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 0.00574452728760246« 
Sinc[2«*(Pi/2 + x)]*Sinc[2*(Pi + y)]*Sinc[2«(Pi + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 0.19426484413008688% 
Sinc[2«*(-Pi/2 + x)]*Sinc[2«*y]*Sinc[2*z]* 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
0.19426484413008688*Sinc[2+*(Pi/2 + x)]+*Sinc[2*y] *Sinc[2*z] * 

Since [Sqrt [13] *(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
0.03340597461976026*Sinc[2+*(-Pi/2 + x)]*Sinc[2*(-Pi + y)]*Sinc[2*z]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

0 .03340597461976025*Sinc[2*(Pi/2 + x)]*Sinc[2*(-Pi + y)]*Sinc[2«z]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
4.3796978362002304«*-7%Sinc [2*x] «Sinc[2«(-Pi/2 + y)]*Sinc[2«z]* 

Since [Sqrt [13] «(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
1.080557573874633%~-6*Sinc[2*(-Pi + x)]*Sinc[2«*(-Pi/2 + y)]«*Sinc[2«z]« 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
(0.01975547679674573 - 3.514491180362547**-8+I)*Sinc[2*(-Pi/2 + x)]* 
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Sinc[2«(-Pi/2 + y)]*Sinc[2«z]* 
Since [Sqrt [13] «(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
(0.0197550908122082 + 3.5144911803625417**-8+I) *Sinc[2*(Pi/2 + x)]* 
Sinc[2*(-Pi/2 + y)]*Sinc[2*z]* 
Since [Sqrt [13] *(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
1.080557573874633**-6*Sinc[2* (Pi + x)]*Sinc[2«*(-Pi/2 + y)]*Sinc[2+*z]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
4.379697836287438%~-7*Sinc [2+*x] *Sinc[2*(Pi/2 + y)]*Sinc[2«z]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
1.080557573865912+%*-6*Sinc[2*(-Pi + x)]*Sinc[2*(Pi/2 + y)]*Sinc[2«*z]* 
Sinc[Sqrt [13] «(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
(0.019755090812208193 + 3.5144911802725186%*-8%I) *«Sinc[2*(-Pi/2 + x)]* 
Sinc[2«*(Pi/2 + y)]*Sinc[2«*z]*Sinc[Sqrt [13] «(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] - (0.019755476796745726 - 
3.514491180272524«*-84I) *Sinc[2*(Pi/2 + x)]*Sinc[2*(Pi/2 + y)]* 
Sinc [2*z] *Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
1.080557573865912+**-6*Sinc[2* (Pi + x)]*Sinc[2*(Pi/2 + y)]*Sinc[2*z]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
0. 03340597461976026«Sinc[2*(-Pi/2 + x)]*Sinc[2«*(Pi + y)]*Sinc[2«z]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
0 .03340597461976025«Sinc [2*(Pi/2 + x)]*Sinc[2«*(Pi + y)]*Sinc[2«z]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
0 .03340597546961818xSinc[2*(-Pi/2 + x)]*Sinc[2«*y]*Sinc[2*(-Pi + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
0 .033405975469618196*Sinc [2* (Pi/2 + x)]*Sinc[2«*y]*Sinc[2«*(-Pi + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
0.005744523898890889*Sinc [2s (-Pi/2 + x)]*Sinc[2*(-Pi + y)]+* 
Sinc([2*(-Pi + z)]*Sinc[Sqrt [13] *(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] + 0.005744523898890889*Sinc[2«(Pi/2 + x)]«* 
Sinc([2«*(-Pi + y)]*Sinc[2«*(-Pi + z)]* 
Since [Sqrt [13] «*(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
1.080557571144335**-6*Sinc[2*x] *Sinc[2«*(-Pi/2 + y)]*Sinc[2«*(-Pi + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
1.7590992552658855*~-6*Sinc[2*(-Pi + x)]*Sinc[2*(-Pi/2 + y)]* 
Sinc([2*(-Pi + z)]*Sinc[Sqrt [13] «*(-(Pi/Sgqrt[13]) + 
Log[t/(1.**-6 - t)])] + (0.0033974971747466687 - 
3.514491185473664%*-84I) *Sinc[2*(-Pi/2 + x)]*Sinc[2*(-Pi/2 + y)]* 
Sinc[2«*(-Pi + z)]*Sinc[Sqrt [13] «*(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] - (0.003396779100853683 + 
3.5144911853632164%*-8%1I) *Sinc[2*(Pi/2 + x)]*Sinc[2«*(-Pi/2 + y)]* 
Sinc([2«*(-Pi + z)]*Sinc[Sqrt [13]«*(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] - 1.7590992552658855**-6*Sinc[2*(Pi + x)]* 
Sinc[2«(-Pi/2 + y)]*Sinc[2«*(-Pi + z)]l«* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
1.0805575711450157**-6%Sinc [2*x] *Sinc[2*(Pi/2 + y)]*Sinc[2«*(-Pi + z)]* 
Sinc [Sqrt [13] *(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
1.7590992552652045+**-6*Sinc [2*(-Pi + x)]*Sinc[2*(Pi/2 + y)]* 
Sinc([2«*(-Pi + z)]*Sinc[Sqrt [13] *(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] + (0.0033967791008536826 + 
3.514491185383633%*-8%1)*Sinc[2«*(-Pi/2 + x)]*Sinc[2«*(Pi/2 + y)]* 
Sinc([2*(-Pi + z)]*Sinc[Sqrt [13]*(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] - (0.003397497174746668 - 
3.514491185273212%*-8%I)*Sinc[2*(Pi/2 + x)]*Sinc[2*(Pi/2 + y)]«* 
Sinc([2*(-Pi + z)]*Sinc[Sqrt [13] *(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] + 1.7590992552652045«**-6*Sinc[2*(Pi + x)]* 
Sinc([2«*(Pi/2 + y)]*Sinc[2«*(-Pi + z)]* 
Since [Sqrt [13] *(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
0.005744523898890889*Sinc[2*(-Pi/2 + x)]*Sinc[2*(Pi + y)]* 
Sinc[2«*(-Pi + z)]*Sinc[Sqrt [13] «*(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] + 0.005744523898890889*Sinc[2*(Pi/2 + x)]* 
Sinc[2«*(Pi + y)]*Sinc[2«*(-Pi + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
0.19426484481055017«Sinc [2*x] *Sinc [2*y] *Sinc[2*(-Pi/2 + z)]«* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
0. 033405975318093833%Sinc[2*(-Pi + x)]*Sinc[2s*y]*Sinc[2«*(-Pi/2 + z)]* 
Since [Sqrt [13] «(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
2.0771950132170147**-9%Sinc [2*(-Pi/2 + x)]*Sinc[2*y]*Sinc[2«*(-Pi/2 + z)]* 
Sinc [Sqrt [13] *(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
0. 03951056796092742*Sinc [2*(Pi/2 + x)]*Sinc[2*y]*Sinc[2*(-Pi/2 + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
0. 033405975318093833%Sinc[2«* (Pi + x)]*Sinc[2*y] *Sinc[2*(-Pi/2 + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
0 .033405976167952066*Sinc [2*x] *Sinc[2*(-Pi + y)]*Sinc[2*(-Pi/2 + z)]«* 
Sinc [Sqrt [13] «(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
0.005744526484049744*Sinc[2*(-Pi + x)]*Sinc[2*(-Pi + y)]* 
Sinc([2«*(-Pi/2 + z)]*Sinc[Sqrt [13]«*(-(Pi/Sgqrt[13]) + 
Log[t/(1.**-6 - t)])] - 4.916240764311908%*-9*Sinc[2*(-Pi/2 + x)]* 
Sinc[2«*(-Pi + y)]*Sinc[2*(-Pi/2 + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
0.006794276659945634*Sinc[2*(Pi/2 + x)]*Sinc[2*(-Pi + y)]* 
Sinc([2«*(-Pi/2 + z)]*Sinc[Sqrt [13] *(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] + 0.005744526484049744%Sinc[2* (Pi + x)]* 
Sinc([2«*(-Pi + y)]*Sinc[2«*(-Pi/2 + z)]* 
Sinc [Sqrt [13] «* (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
(0.019754670818158723 - 3.5144911836527286%*-8+I) «Sinc[2+*x] + 
Sinc[2«*(-Pi/2 + y)]«*Sinc[2«*(-Pi/2 + z)]l«* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
(0.003396359139175697 - 3.514491182221582**-8%I) *Sinc[2«(-Pi + x)]* 
Sinc[2«*(-Pi/2 + y)]*Sinc[2«*(-Pi/2 + z)]* 
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Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
2.584085221270932%*-7*Sinc[2«*(-Pi/2 + x)]*Sinc[2«*(-Pi/2 + y)]* 
Sinc([2«*(-Pi/2 + z)]*Sinc[Sqrt [13] «*(-(Pi/Sqrt[13]) + 

Log[t/(1.**-6 - t)])] + 0.004017670731206252*Sinc[2*(Pi/2 + x)]* 
Sinc[2«*(-Pi/2 + y)]*Sinc[2«*(-Pi/2 + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
(0.003396359139175697 - 3.514491182221582**-8%I) *Sinc[2«*(Pi + x)]* 
Sinc[2«*(-Pi/2 + y)]«*Sinc[2«(-Pi/2 + z)]l* 
Sinc [Sqrt [13] «* (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
(0.019755897494741374 + 3.5144911802138655%*-84I) «Sinc[2+*x] * 
Sinc([2«*(Pi/2 + y)]*Sinc[2*(-Pi/2 + z)]«* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
(0.0033979179051160926 + 3.5144911856348764**-8+1) *Sinc[2*(-Pi + x)]* 
Sinc[2«*(Pi/2 + y)]*Sinc[2*(-Pi/2 + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
2.6061747894316756«*-7*Sinc [2*(-Pi/2 + x)]*Sinc[2*(Pi/2 + y)]* 
Sinc[2*(-Pi/2 + z)]+*Sinc[Sqrt [13] *(-(Pi/Sqrt[13]) + 

Log[t/(1.**-6 - t)])] + 0.00401818876163284%Sinc[2*(Pi/2 + x)]«* 
Sinc[2«*(Pi/2 + y)]*Sinc[2«(-Pi/2 + z)]«* 
Sinc [Sqrt [13] «* (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
(0.0033979179051160926 + 3.5144911856348764x*-8*I)*Sinc[2*(Pi + x)]* 
Sinc[2«*(Pi/2 + y)]*Sinc[2«(-Pi/2 + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
0.033405976167952066+Sinc [2*x] *Sinc[2*(Pi + y)]*Sinc[2*(-Pi/2 + z)]* 
Sinc [Sqrt [13] *(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
0.005744526484049744*Sinc[2*(-Pi + x)]*Sinc[2*(Pi + y)]* 
Sinc[2«*(-Pi/2 + z)]*Sinc[Sqrt [13] «*(-(Pi/Sqrt[13]) + 

Log[t/(1.**-6 - t)])] - 4.916240764311908%*-9*Sinc[2«(-Pi/2 + x)]* 
Sinc[2«*(Pi + y)]*Sinc[2«*(-Pi/2 + z)]* 
Sinc [Sqrt [13] «* (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
0 .006794276659945634%Sinc [2% (Pi/2 + x)]*Sinc[2«*(Pi + y)]* 
Sinc([2«*(-Pi/2 + z)]*Sinc[Sqrt [13]«*(-(Pi/Sqrt[13]) + 

Log[t/(1.**-6 - t)])] + 0.005744526484049744%Sinc[2« (Pi + x)]* 
Sinc[2*(Pi + y)]*Sinc[2«*(-Pi/2 + z)]* 
Sinc [Sqrt [13] *(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
0.1942648448105502*Sinc [2*x] *Sinc[2*y] *Sinc[2*(Pi/2 + z)]+* 
Since [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
0.033405975318093806*Sinc[2*(-Pi + x)]+*Sinc[2*y]*Sinc[2*(Pi/2 + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
0 .03951056796092742«Sinc[2«*(-Pi/2 + x)]*Sinc[2«*y]*Sinc[2«*(Pi/2 + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
2.0771950132170147**-9*Sinc[2*(Pi/2 + x)]*Sinc[2«*y]*Sinc[2«(Pi/2 + z)]* 
Sinc [Sqrt [13] «(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
0. 033405975318093806*Sinc[2* (Pi + x)]*Sinc[2*y]*Sinc[2*(Pi/2 + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
0. 033405976167952066*Sinc [2*x] *Sinc[2*(-Pi + y)]*Sinc[2*(Pi/2 + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
0.005744526484049746*Sinc[2*(-Pi + x)]*Sinc[2*(-Pi + y)]* 
Sinc[2«*(Pi/2 + z)]*Sinc[Sqrt [13]*(-(Pi/Sqrt[13]) + 

Log[t/(1.**-6 - t)])] + 0.006794276659945633*Sinc [2% (-Pi/2 + x)]« 
Sinc[2«*(-Pi + y)]*Sinc[2«*(Pi/2 + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
4.9162407651792694%*-9*Sinc[2*(Pi/2 + x)]*Sinc[2*(-Pi + y)]* 
Sinc[2«*(Pi/2 + z)]*Sinc[Sqrt [13]*(-(Pi/Sqrt[13]) + 

Log[t/(1.**-6 - t)])] - 0.005744526484049746+*Sinc[2« (Pi + x)]* 
Sinc[2«*(-Pi + y)]*Sinc[2«*(Pi/2 + z)]* 
Since [Sqrt [13] *(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
(0.019755897494741374 + 3.514491179999972+*-8*I) *Sinc [2*x] * 
Sinc[2«*(-Pi/2 + y)]*Sinc[2«*(Pi/2 + z)]* 
Sinc [Sqrt [13] *(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
(0.003397917905116092 + 3.5144911858980317%*-8xI) «Sinc[2*(-Pi + x)]«* 
Sinc[2«*(-Pi/2 + y)]*Sinc[2«*(Pi/2 + z)]«* 
Since [Sqrt [13] «(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
0 .004018188761632837*Sinc [2*(-Pi/2 + x)]*Sinc[2«*(-Pi/2 + y)]* 
Sinc[2«*(Pi/2 + z)]*Sinc[Sqrt [13]*(-(Pi/Sqrt[13]) + 

Log[t/(1.**-6 - t)])] - 2.6061747894533596%*-7*Sinc[2*(Pi/2 + x)]* 
Sinc[2«*(-Pi/2 + y)]*Sinc[2«*(Pi/2 + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
(0.003397917905116092 + 3.5144911858980317**-8xI) *Sinc[2*(Pi + x)]* 
Sinc[2«*(-Pi/2 + y)]*Sinc[2«*(Pi/2 + z)]* 
Since [Sqrt [13] «(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
(0.019754670818158723 - 3.514491183434951**-8%I) *Sinc [2«x] « 
Sinc[2«*(Pi/2 + y)]*Sinc[2*(Pi/2 + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
(0.0033963591391756977 - 3.514491182394117%*-8%I) *«Sinc[2*(-Pi + x)]«* 
Sinc([2«*(Pi/2 + y)]*Sinc[2«(Pi/2 + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
0 .004017670731206255*Sinc [2*(-Pi/2 + x)]*Sinc[2*(Pi/2 + y)]* 
Sinc[2«*(Pi/2 + z)]*Sinc[Sqrt [13]*(-(Pi/Sqrt[13]) + 

Log[t/(1.**-6 - t)])] + 2.584085221296953**-7*Sinc[2*(Pi/2 + x)]* 
Sinc[2«*(Pi/2 + y)]*Sinc[2«(Pi/2 + z)]* 
Sinc [Sqrt [13] *(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
(0.0033963591391756977 - 3.514491182394117%*-8+I) *Sinc[2*(Pi + x)]* 
Sinc[2«*(Pi/2 + y)]*Sinc[2«(Pi/2 + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
0.033405976167952066*Sinc [2*x] *Sinc[2*(Pi + y)]*Sinc[2*(Pi/2 + z)]* 
Sinc [Sqrt [13] «* (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
0.005744526484049746*Sinc[2*(-Pi + x)]*Sinc[2*(Pi + y)]+* 
Sinc[2«*(Pi/2 + z)]*Sinc[Sqrt [13]*(-(Pi/Sqrt[13]) + 
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Log[t/(1.**-6 - t)])] + 0.006794276659945633*Sinc [2% (-Pi/2 + x)]« 
Sinc[2«*(Pi + y)]*Sinc[2*(Pi/2 + z)]* 
Sinc [Sqrt [13] *(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
4.9162407651792694**-9*Sinc[2*(Pi/2 + x)]*Sinc[2*(Pi + y)]* 
Sinc[2«*(Pi/2 + z)]*Sinc[Sqrt [13]*(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] - 0.005744526484049746*Sinc[2* (Pi + x)]* 
Sinc[2«*(Pi + y)]*Sinc[2*(Pi/2 + z)]«* 
Sinc [Sqrt [13] «(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
0 .03340597546961818xSinc [2«*(-Pi/2 + x)]*Sinc[2«*y]*Sinc[2*(Pi + z)]* 
Sinc [Sqrt [13] *(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
0 .033405975469618196*Sinc[2*(Pi/2 + x)]*Sinc[2«*y]*Sinc[2*(Pi + z)]* 
Sinc [Sqrt [13] «* (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
0.005744523898890889*Sinc [2«(-Pi/2 + x)]*Sinc[2*(-Pi + y)]* 
Sinc([2*(Pi + z)]*Sinc[Sqrt [13]*(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] + 0.005744523898890889*Sinc[2*(Pi/2 + x)]* 
Sinc[2*(-Pi + y)]*Sinc[2*(Pi + z)]* 
Since [Sqrt [13] *(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
1.080557571144335**-6*Sinc [2*x] *Sinc[2*(-Pi/2 + y)]*Sinc[2*(Pi + z)]* 
Sinc [Sqrt [13] «* (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
1.7590992552658855**-6%*Sinc [2*(-Pi + x)]*Sinc[2«*(-Pi/2 + y)]«* 
Sinc[2«* (Pi + z)]*Sinc[Sqrt [13]*(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] + (0.0033974971747466687 - 
3.514491185473664%*-8%I) *Sinc[2*(-Pi/2 + x)]*Sinc[2*(-Pi/2 + y)]* 
Sinc[2«* (Pi + z)]*Sinc[Sqrt [13]*(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] - (0.003396779100853683 + 
3.5144911853632164**-8*I) *Sinc[2*(Pi/2 + x)]*Sinc[2*(-Pi/2 + y)]* 
Sinc([2«* (Pi + z)]*Sinc[Sqrt [13]*(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] - 1.7590992552658855**-6*Sinc[2*(Pi + x)]* 
Sinc[2*(-Pi/2 + y)]*Sinc[2*(Pi + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
1.0805575711450157«*-6*Sinc [2*x] *Sinc[2*(Pi/2 + y)]*Sinc[2«*(Pi + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
1.7590992552652045«*-6*Sinc [2*(-Pi + x)]*Sinc[2«*(Pi/2 + y)]* 
Sinc([2«(Pi + z)]*Sinc[Sqrt [13]*(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] + (0.0033967791008536826 + 
3.514491185383633**-8*1) *Sinc[2*(-Pi/2 + x)]*Sinc[2*(Pi/2 + y)]* 
Sinc([2*(Pi + z)]*Sinc[Sqrt [13]*(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] - (0.003397497174746668 - 
3.514491185273212«*-8%I)*Sinc[2*(Pi/2 + x)]*Sinc[2*(Pi/2 + y)]l«* 
Sinc([2*(Pi + z)]*Sinc[Sqrt [13] *(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] + 1.7590992552652045«**-6*Sinc[2*(Pi + x)]* 
Sinc([2«(Pi/2 + y)]*Sinc[2«(Pi + z)]* 
Since [Sqrt [13] «(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
0 .005744523898890889«Sinc [2 (-Pi/2 + x)]*Sinc[2«*(Pi + y)]«* 
Sinc([2«* (Pi + z)]*Sinc[Sqrt [13]*(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] + 0.005744523898890889*Sinc[2*(Pi/2 + x)]* 
Sinc[2*(Pi + y)]*Sinc[2*(Pi + z)]* 
Sinc [Sqrt [13] *(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
0 .1942650249503809*Sinc[2*(-Pi/2 + x)]*Sinc[2*y]*Sinc[2*z] * 
Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
0 .1942650249503809«Sinc[2*(Pi/2 + x)]*Sinc[2*y] *Sinc[2+*z]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
0 .03340602850171875*Sinc [2*(-Pi/2 + x)]*Sinc[2«*(-Pi + y)]*Sinc[2«z]* 
Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
0 .033406028501718754*Sinc [2*(Pi/2 + x)]*Sinc[2«*(-Pi + y)]*Sinc[2«z]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
2.423963564467034%*-6*Sinc [2+*x] *Sinc[2*(-Pi/2 + y)]*Sinc[2«*z]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
5.980396613477894**-6*Sinc[2*(-Pi + x)]*Sinc[2*(-Pi/2 + y)]+*Sinc[2*z]* 
Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
(0.019756417205627885 - 1.9451118821782975**-7«I) «Sinc[2*(-Pi/2 + x)]* 
Sinc[2«(-Pi/2 + y)]*Sinc[2«z]* 
Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
(0.01975428095792176 + 1.9451118821782964**-7«*I) *Sinc[2*(Pi/2 + x)]* 
Sinc[2*(-Pi/2 + y)]*Sinc[2«z]* 
Sinc [Sqrt [13] «(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
5 .980396613477894%*-6*Sinc[2* (Pi + x)]*Sinc[2«*(-Pi/2 + y)]*Sinc[2+*z]* 
Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
2.4239635644669265**-64Sinc [2*x] *Sinc[2*(Pi/2 + y)]*Sinc[2*z]* 
Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
5 .980396613478002+%*-6*Sinc[2*(-Pi + x)]*Sinc[2*(Pi/2 + y)]*Sinc[2«*z]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
(0.019754280957921755 + 1.9451118821979362%*-7%I) «Sinc[2*(-Pi/2 + x)]* 
Sinc[2«(Pi/2 + y)]*Sinc[2«z]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
(0.019756417205627878 - 1.9451118821979373%*-7%I) *Sinc[2*(Pi/2 + x)]* 
Sinc[2«*(Pi/2 + y)]*Sinc[2*«z]* 
Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
5 .980396613478002+*-6*Sinc[2* (Pi + x)]*Sinc[2*(Pi/2 + y)]*Sinc[2«z]* 
Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
0.03340602850171875*Sinc[2*(-Pi/2 + x)]*Sinc[2*(Pi + y)]*Sinc[2+*z]+* 
Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
0 .033406028501718754*Sinc [2*(Pi/2 + x)]*Sinc[2«*(Pi + y)]*Sinc[2«z]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
0 .03340603320529245«Sinc[2*(-Pi/2 + x)]*Sinc[2«*y]*Sinc[2«*(-Pi + z)]* 
Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
0 .03340603320529245«Sinc[2*(Pi/2 + x)]*Sinc[2s*y]*Sinc[2«*(-Pi + z)]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
0.0057445323834868795*Sinc[2*(-Pi/2 + x)]*Sinc[2*(-Pi + y)]* 
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Example File of Results 


Sinc[2«*(-Pi + z)]*Sinc[Sqrt [13] «(Pi/Sgqrt [13] + Log[t/(1.**-6 - t)])] + 
0 .0057445323834868795*Sinc [2x (Pi/2 + x)]*Sinc[2«*(-Pi + y)]* 
Sinc[2*(-Pi + z)]*Sinc[Sqrt [13]*(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
5..9803965533169056**-6*Sinc [2*x] *Sinc[2*(-Pi/2 + y)]*Sinc[2*(-Pi + z)]* 
Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
9.73581809550493**-6*Sinc[2*(-Pi + x)]*Sinc[2«*(-Pi/2 + y)]* 
Sinc[2«*(-Pi + z)]*Sinc[Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
(0.003399138381560354 - 1.945111890361127**-7«I) *Sinc[2«(-Pi/2 + x)]* 
Sinc[2«*(-Pi/2 + y)]*Sinc[2«*(-Pi + z)]l«* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
(0.003395164170659298 + 1.9451118903500796%*-7%I) «Sinc[2*(Pi/2 + x)]* 
Sinc[2«*(-Pi/2 + y)]*Sinc[2«*(-Pi + z)]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
9.73581809550493**-6*Sinc[2* (Pi + x)]*Sinc[2*(-Pi/2 + y)]* 
Sinc[2*(-Pi + z)]*Sinc[Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
5 .980396553317465+*-6*Sinc [2*x] *Sinc[2*(Pi/2 + y)]*Sinc[2*(-Pi + z)]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
9.735818095504373%*-6*Sinc[2*(-Pi + x)]*Sinc[2*(Pi/2 + y)]* 
Sinc([2«*(-Pi + z)]*Sinc[Sqrt [13]«*(Pi/Sgqrt [13] + Log[t/(1.**-6 - t)])] + 
(0.003395164170659297 + 1.9451118903807629%*-7%I) *Sinc[2*(-Pi/2 + x)]* 
Sinc[2«*(Pi/2 + y)]*Sinc[2*(-Pi + z)]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
(0.0033991383815603535 - 1.9451118903697218%*-7*I)*Sinc[2*(Pi/2 + x)]* 
Sinc[2«*(Pi/2 + y)]*Sinc[2*(-Pi + z)]* 
Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
9.735818095504373**-6*Sinc[2* (Pi + x)]*Sinc[2*(Pi/2 + y)]* 
Sinc([2«*(-Pi + z)]*Sinc[Sqrt [13] «*(Pi/Sgqrt [13] + Log[t/(1.**-6 - t)])] - 
0.0057445323834868795*Sinc[2*(-Pi/2 + x)]*Sinc[2*(Pi + y)]* 
Sinc([2«(-Pi + z)]*Sinc[Sqrt [13]«*(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
0.0057445323834868795*Sinc[2*(Pi/2 + x)]*Sinc[2*(Pi + y)]* 
Sinc([2*(-Pi + z)]*Sinc[Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
0 .19426502871643148«Sinc [2*x] *Sinc [2*y] *Sinc[2*(-Pi/2 + z)]«* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
0 .033406032366685524*Sinc[2*(-Pi + x)]*Sinc[2*y]*Sinc[2*(-Pi/2 + z)]«* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
1.1496321256077024**-8*Sinc[2*(-Pi/2 + x)]*Sinc[2*y] *Sinc[2*(-Pi/2 + z)]* 
Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
0.03951070011156743*Sinc [2+ (Pi/2 + x)]*Sinc[2*y]*Sinc[2*(-Pi/2 + z)]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
0 .033406032366685524%Sinc[2* (Pi + x)]*Sinc[2*y] *Sinc[2*(-Pi/2 + z)]* 
Sinc [Sqrt [13] *(Pi/Sgrt [13] + Log[t/(1.**-6 - t)])] + 
0 .033406037070265654*Sinc [2*x] *Sinc[2*(-Pi + y)]*Sinc[2*(-Pi/2 + z)]«* 
Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
0.005744546691143478*Sinc[2*(-Pi + x)]*Sinc[2*(-Pi + y)]* 
Sinc([2«*(-Pi/2 + z)]+*Sinc[Sqrt [13] *(Pi/Sqrt [13] + 

Log[t/(1.**-6 - t)])] - 2.720917658804306**-8*Sinc[2*(-Pi/2 + x)]* 
Sinc([2*(-Pi + y)]*Sinc[2*(-Pi/2 + z)]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
0.006794304679387975*Sinc [2+ (Pi/2 + x)]*Sinc[2*(-Pi + y)]* 
Sinc[2*(-Pi/2 + z)]+*Sinc[Sqrt [13]*(Pi/Sqrt [13] + 

Log[t/(1.**-6 - t)])] + 0.005744546691143478%Sinc[2« (Pi + x)]* 
Sinc[2«*(-Pi + y)]*Sinc[2«*(-Pi/2 + z)]«* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
(0.019751956480745188 - 1.9451119014881372%*-7«I) *Sinc[2+*x] * 
Sinc[2«(-Pi/2 + y)]*Sinc[2«*(-Pi/2 + z)]l* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
(0.0033928398726381075 - 1.945111890836935**-7*I) *Sinc[2*(-Pi + x)]* 
Sinc[2«*(-Pi/2 + y)]*Sinc[2«*(-Pi/2 + z)]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
1.4301733411142131**-6%Sinc [2«(-Pi/2 + x)]*Sinc[2«(-Pi/2 + y)]* 
Sinc[2*(-Pi/2 + z)]+*Sinc[Sqrt [13] *(Pi/Sqrt [13] + 

Log[t/(1.**-6 - t)])] + 0.004016519321050392%Sinc[2«(Pi/2 + x)]* 
Sinc[2«(-Pi/2 + y)]«*Sinc[2«*(-Pi/2 + z)]l* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
(0.0033928398726381075 - 1.945111890836935%*-7%I) *Sinc[2*(Pi + x)]* 
Sinc[2«*(-Pi/2 + y)]«*Sinc[2«(-Pi/2 + z)]l* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
(0.01975874557882411 + 1.9451118947299096+*-7*I) *Sinc [2*x] * 
Sinc[2«*(Pi/2 + y)]*Sinc[2«*(-Pi/2 + z)]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
(0.003401466933934258 + 1.9451118976268978%*-7%I) «Sinc[2*(-Pi + x)]«* 
Sinc[2«*(Pi/2 + y)]*Sinc[2«(-Pi/2 + z)]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
1.4423989081586118%*-6«Sinc[2*(-Pi/2 + x)]*Sinc[2«*(Pi/2 + y)]«* 
Sinc[2*(-Pi/2 + z)]+*Sinc[Sqrt[13]*(Pi/Sqrt [13] + 

Log[t/(1.**-6 - t)])] + 0.004019386383227855*Sinc[2*(Pi/2 + x)]* 
Sinc[2«*(Pi/2 + y)]*Sinc[2«(-Pi/2 + z)]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
(0.003401466933934258 + 1.9451118976268978%*-7*I) *Sinc[2*(Pi + x)]* 
Sinc[2«*(Pi/2 + y)]*Sinc[2«*(-Pi/2 + z)]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
0 .033406037070265654*Sinc [2*x] *Sinc[2* (Pi + y)]*Sinc[2*(-Pi/2 + z)]* 
Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
0.005744546691143478*Sinc[2*(-Pi + x)]*Sinc[2*(Pi + y)]+* 
Sinc[2«(-Pi/2 + z)]+*Sinc[Sqrt [13] *(Pi/Sqrt [13] + 

Log[t/(1.**-6 - t)])] - 2.720917658804306**-8*Sinc[2«*(-Pi/2 + x)]* 
Sinc[2*(Pi + y)]*Sinc[2«*(-Pi/2 + z)]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
0.006794304679387975*Sinc [2% (Pi/2 + x)]*Sinc[2*(Pi + y)]* 
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Sinc[2«*(-Pi/2 + z)]+*Sinc[Sqrt[13]*(Pi/Sqrt [13] + 

Log[t/(1.**-6 - t)])] + 0.005744546691143478%Sinc[2« (Pi + x)]* 
Sinc[2«* (Pi + y)]*Sinc[2«*«(-Pi/2 + z)]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
0 .19426502871643148*Sinc [2+*x] *Sinc [2*y] *Sinc[2*(Pi/2 + z)]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
0 .03340603236668552xSinc[2*(-Pi + x)]*Sinc[2*y]*Sinc[2*(Pi/2 + z)]* 
Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
0.039510700111567425*Sinc [2*(-Pi/2 + x)]*Sinc[2*y]*Sinc[2«*(Pi/2 + z)]* 
Sinc [Sqrt [13] * (Pi/Sgrt [13] + Log[t/(1.**-6 - t)])] + 
1.149632124913813%*-8*Sinc[2*(Pi/2 + x)]*Sinc[2*y]*Sinc[2«*(Pi/2 + z)]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
0 .03340603236668552xSinc[2* (Pi + x)]*Sinc[2*y]*Sinc[2«(Pi/2 + z)]«* 
Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
0.033406037070265654+*Sinc [2*x] *Sinc[2*(-Pi + y)]*Sinc[2*(Pi/2 + z)]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
0.005744546691143481*Sinc[2*(-Pi + x)]*Sinc[2*(-Pi + y)]* 
Sinc[2«*(Pi/2 + z)]+*Sinc[Sqrt [13]*(Pi/Sqrt[13] + Log[t/(1.**-6 - t)])] 
0 .006794304679387974«Sinc [2*(-Pi/2 + x)]*Sinc[2«*(-Pi + y)]* 
Sinc[2«*(Pi/2 + z)]*Sinc[Sqrt [13]*(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] 
2.7209176589777784%~-8*Sinc[2*(Pi/2 + x)]*Sinc[2+*(-Pi + y)]* 
Sinc[2«*(Pi/2 + z)]*Sinc[Sqrt [13]*(Pi/Sqrt[13] + Log[t/(1.**-6 - t)])] 
0.005744546691143481*Sinc[2* (Pi + x)]*Sinc[2*(-Pi + y)]* 
Sinc([2*(Pi/2 + z)]*Sinc[Sqrt [13]*(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] 
(0.019758745578824108 + 1.9451118947137202**-7*I) *Sinc[2+*x] + 
Sinc[2«*(-Pi/2 + y)]*Sinc[2«*(Pi/2 + z)]* 
Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
(0.003401466933934257 + 1.9451118976107084%*-7%I) *Sinc[2*(-Pi + x)]«* 
Sinc[2«(-Pi/2 + y)]*Sinc[2«*(Pi/2 + z)]«* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
0 .0040193863832278555*Sinc[2*(-Pi/2 + x)]*Sinc[2*(-Pi/2 + y)]* 
Sinc[2«*(Pi/2 + z)]+*Sinc[Sqrt [13]*(Pi/Sqrt[13] + Log[t/(1.**-6 - t)])] 
1.4423989081599128%*-6%Sinc[2*(Pi/2 + x)]*Sinc[2«(-Pi/2 + y)]l«* 
Sinc[2«*(Pi/2 + z)]*Sinc[Sqrt [13]*(Pi/Sqrt[13] + Log[t/(1.**-6 - t)])] 
(0.003401466933934257 + 1.9451118976107084%*-7*I) *Sinc[2*(Pi + x)]* 
Sinc[2«*(-Pi/2 + y)]*Sinc[2«*(Pi/2 + z)]* 
Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
(0.01975195648074519 - 1.9451119015145247+*-7*I) *Sinc [2*x] * 
Sinc([2«*(Pi/2 + y)]*Sinc[2«(Pi/2 + z)]* 
Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
(0.003392839872638108 - 1.9451118908416385%*-7%I) *Sinc[2*(-Pi + x)]«* 
Sinc([2«(Pi/2 + y)]*Sinc[2«(Pi/2 + z)]* 
Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
0 .0040165193210503925*Sinc[2*(-Pi/2 + x)]*Sinc[2s(Pi/2 + y)]* 
Sinc[2*(Pi/2 + z)]*Sinc[Sqrt [13]*(Pi/Sqrt[13] + Log[t/(1.**-6 - t)])] 
1.4301733411163815**-6%Sinc[2*(Pi/2 + x)]*Sinc[2*(Pi/2 + y)1* 
Sinc([2*(Pi/2 + z)]*Sinc[Sqrt [13]*(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] 
(0.003392839872638108 - 1.9451118908416385**-7*I) *Sinc[2* (Pi + x)]* 
Sinc[2«*(Pi/2 + y)]*Sinc[2«(Pi/2 + z)]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
0.033406037070265654*Sinc [2*x] *Sinc[2*(Pi + y)]*Sinc[2*(Pi/2 + z)]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
0.005744546691143481+Sinc[2*(-Pi + x)]*Sinc[2*(Pi + y)]s 
Sinc[2*(Pi/2 + z)]*Sinc[Sqrt [13]*(Pi/Sqrt[13] + Log[t/(1.**-6 - t)])] 
0 .006794304679387974*Sinc [2 (-Pi/2 + x)]*Sinc[2«*(Pi + y)]«* 
Sinc[2*(Pi/2 + z)]*Sinc[Sqrt [13]*(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] 
2.7209176589777784**-8*Sinc[2*(Pi/2 + x)]*Sinc[2*(Pi + y)]* 
Sinc([2*(Pi/2 + z)]*Sinc[Sqrt [13]*(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] 
0.005744546691143481+Sinc[2* (Pi + x)]*Sinc[2*(Pi + y)]* 
Sinc[2*(Pi/2 + z)]*Sinc[Sqrt [13]*(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] 
0 .03340603320529245«Sinc[2«*(-Pi/2 + x)]*Sinc[2«*y]*Sinc[2«*(Pi + z)]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
0 .03340603320529245«Sinc[2*(Pi/2 + x)]*Sinc[2s*y]*Sinc[2*(Pi + z)]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
0 .0057445323834868795*Sinc [2x (-Pi/2 + x)]*Sinc[2«(-Pi + y)]* 
Sinc[2«*(Pi + z)]*Sinc[Sqrt[13]«*(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
0.0057445323834868795*Sinc[2*(Pi/2 + x)]*Sinc[2*(-Pi + y)]* 
Sinc[2*(Pi + z)]*Sinc[Sqrt[13]*(Pi/Sqrt[13] + Log[t/(1.**-6 - t)])] - 
5 .9803965533169056**-6*Sinc [2+x] *Sinc[2*(-Pi/2 + y)]*Sinc[2*(Pi + z)]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
9.73581809550493x*-64Sinc [2*(-Pi + x)]*Sinc[2«(-Pi/2 + y)]* 
Sinc[2«*(Pi + z)]*Sinc[Sqrt[13]*(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
(0.003399138381560354 - 1.945111890361127**-7«I) *Sinc[2«(-Pi/2 + x)]* 
Sinc[2*(-Pi/2 + y)]*Sinc[2«*(Pi + z)]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
(0.003395164170659298 + 1.9451118903500796%*-7%I) *Sinc[2*(Pi/2 + x)]* 
Sinc[2*(-Pi/2 + y)]*Sinc[2«*(Pi + z)]* 
Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
9.73581809550493**-6%*Sinc[2* (Pi + x)]*Sinc[2«*(-Pi/2 + y)]* 
Sinc([2*(Pi + z)]*Sinc[Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
5 .980396553317465+*-6*Sinc [2*x] *Sinc[2*(Pi/2 + y)]*Sinc[2*(Pi + z)]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
9.735818095504373%*-6*Sinc[2*(-Pi + x)]*Sinc[2*(Pi/2 + y)]* 
Sinc[2*(Pi + z)]*Sinc[Sqrt[13]*(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
(0.003395164170659297 + 1.9451118903807629%*-7%I) «Sinc[2*(-Pi/2 + x)]* 
Sinc[2«(Pi/2 + y)]*Sinc[2*(Pi + z)]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
(0.0033991383815603535 - 1.9451118903697218%*-7*I)*Sinc[2*(Pi/2 + x)]* 
Sinc[2«*(Pi/2 + y)]*Sinc[2*(Pi + z)]* 


B_ Result Notes 


B.1 


Example File of Results 


Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
9.735818095504373%*-6*Sinc[2* (Pi + x)]*Sinc[2*(Pi/2 + y)]* 


Sinc[2*(Pi + z)]*Sinc[Sqrt[13]*(Pi/Sqrt [13] + Log[t/(1.**-6 


0.0057445323834868795*Sinc[2*(-Pi/2 + x)]*Sinc[2*(Pi + y)]* 


Sinc[2*(Pi + z)]+*Sinc[Sqrt[13]*(Pi/Sqrt [13] + Log[t/(1.**-6 


0.0057445323834868795*Sinc[2*(Pi/2 + x)]*Sinc[2*(Pi + y)]+* 
Sinc[2«(Pi + z)]+*Sinc[Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**- 
uh3 -> Function[{x, y, z, t}, 0.19426493698814232%Sinc [2s (-Pi/ 
Sinc [2*y] *Sinc [2*z]*Sinc[Sgrt [13] *Log[t/(1.**-6 - t)]] - 
0 .19426493698814232«Sinc[2«*(Pi/2 + x)]*Sinc[2s*y]*Sinc[2+*z] « 
Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 0.03340600379234267« 
Sinc[2«(-Pi/2 + x)]«*Sinc[2«*(-Pi + y)]*Sinc[2«z]« 
Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 0.03340600379234266« 
Sinc[2«*(Pi/2 + x)]*Sinc[2*(-Pi + y)]*Sinc[2«*z]* 


Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 0.19426493431553335*Sinc [2*x] * 
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Sinc[2*(-Pi/2 + y)]*Sinc[2*z]*Sinc[Sqrt [13] *Log[t/(1.**-6 - t)]] 


0.03340600438746527*Sinc[2«(-Pi + x)]*Sinc[2«*(-Pi/2 + y)]*Sinc[2«z]* 


Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 8.158475089947714%*-9 
Sinc[2*(-Pi/2 + x)]«*Sinc[2«*(-Pi/2 + y)]*Sinc[2«z]« 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 0.039510634036218836x 
Sinc[2«*(Pi/2 + x)]*Sinc[2«*(-Pi/2 + y)]*Sinc[2«*z]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 0.03340600438746527* 
Sinc[2«*(Pi + x)]*Sinc[2«(-Pi/2 + y)]«*Sinc[2«*z]* 


Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 0.19426493431553335*Sinc [2*x] * 


* 


Sinc[2«*(Pi/2 + y)]*Sinc[2*z]*Sinc[Sqrt [13] *Log[t/(1.**-6 - t)]] + 


0.033406004387465264*Sinc[2*(-Pi + x)]*Sinc[2*(Pi/2 + y)]*Sinc[2«*z]* 


Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 0.039510634036218815x« 
Sinc[2*(-Pi/2 + x)]*Sinc[2*(Pi/2 + y)]*Sinc[2«*z]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 8.158475096886608%*-9 
Sinc[2«*(Pi/2 + x)]*Sinc[2*(Pi/2 + y)]*Sinc[2«z]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 0.033406004387465264« 
Sinc([2«*(Pi + x)]*Sinc[2«(Pi/2 + y)]*Sinc[2«z]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 0.03340600379234267« 
Sinc[2«*(-Pi/2 + x)]«*Sinc[2«*(Pi + y)]«Sinc[2«*z]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 0.03340600379234266s 
Sinc[2«*(Pi/2 + x)]*Sinc[2«(Pi + y)]*Sinc[2*z]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 0.033406007130283175* 
Sinc[2*(-Pi/2 + x)]*Sinc[2*y]*Sinc[2*(-Pi + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 0.03340600713028319% 
Sinc[2«*(Pi/2 + x)]*Sinc[2*y]*Sinc[2«*(-Pi + z)]«* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 0.005744537441176652« 
Sinc[2«*(-Pi/2 + x)]*Sinc[2«*(-Pi + y)]*Sinc[2«*(-Pi + z)]* 
Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 0.005744537441176652« 
Sinc[2«*(Pi/2 + x)]*Sinc[2*(-Pi + y)]*Sinc[2«*(-Pi + z)]* 


Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 0.03340600104954768%Sinc[2«x] * 


Sinc[2*(-Pi/2 + y)]*Sinc[2*(-Pi + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 0.005744527287599651« 
Sinc[2«*(-Pi + x)]*Sinc[2«*(-Pi/2 + y)]*Sinc[2*(-Pi + z)]* 
Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 1.930923356624481«*-8 
Sinc[2«*(-Pi/2 + x)]*Sinc[2«(-Pi/2 + y)]*Sinc[2«*(-Pi + z)]«* 
Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 0.0067942906696565105 
Sinc[2«*(Pi/2 + x)]*Sinc[2«(-Pi/2 + y)]*Sinc[2«*(-Pi + z)]* 
Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 0.005744527287599651l« 
Sinc[2«*(Pi + x)]*Sinc[2«(-Pi/2 + y)]*Sinc[2«*(-Pi + z)]* 


Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 0.03340600104954768%Sinc [2*x] * 


Sinc[2*(Pi/2 + y)]*Sinc[2*(-Pi + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 0.005744527287599649x 
Sinc[2«*(-Pi + x)]*Sinc[2«*(Pi/2 + y)]*Sinc[2*(-Pi + z)]* 
Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 0.0067942906696565105 
Sinc[2«*(-Pi/2 + x)]*Sinc[2«*(Pi/2 + y)]*Sinc[2«*(-Pi + z)]* 


Since [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 1.9309233567112172%*-8% 


Sinc[2«*(Pi/2 + x)]*Sinc[2«(Pi/2 + y)]*Sinc[2«(-Pi + z)]«* 
Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 0.005744527287599649x« 
Sinc[2«* (Pi + x)]*Sinc[2«(Pi/2 + y)]*Sinc[2«*(-Pi + z)]«* 
Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 0.005744537441176652 
Sinc[2«*(-Pi/2 + x)]«*Sinc[2«* (Pi + y)]*Sinc[2«*(-Pi + z)]* 
Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 0.005744537441176652« 
Sinc([2*(Pi/2 + x)]*Sinc[2*(Pi + y)]*Sinc[2*(-Pi + z)]* 


Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 1.720188110199284**-6+*Sinc [2*x] * 


* 


* 


* 


* 


Sinc [2*y]*Sinc[2«*(-Pi/2 + z)]*Sinc[Sqrt [13] *Log[t/(1.**-6 - t)]] 


4.244042768947355%*-6*Sinc[2«*(-Pi + x)]*Sinc[2*y]*Sinc[2«*(-Pi/2 + z)]* 


Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 


(0.019752908736516053 - 1.3803662131716263%*-7x1) *Sinc[2*(-Pi/2 + x)]* 


Sinc[2*y] *Sinc[2«*(-Pi/2 + z)]*Sinc[Sqrt [13] *Log[t/(1.**-6 - t)]] + 


(0.019757726682121578 + 1.380366210571991%*-7«*I)*Sinc[2*(Pi/2 + x)]* 


Sinc[2*y] *Sinc[2«*(-Pi/2 + z)]+*Sinc[Sqrt [13]*Log[t/(1.**-6 - t)]] 


4.244042768947355%*-6*Sinc[2«* (Pi + x)]*Sinc[2*y]+*Sinc[2«(-Pi/2 + z)]* 
Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 4.244042766820049«*-6*Sinc [2*x] * 


Sinc[2*(-Pi + y)]*Sinc[2*(-Pi/2 + z)]l* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 6.909111410747895«*-6 
Sinc[2*(-Pi + x)]*Sinc[2*(-Pi + y)]*Sinc[2*(-Pi/2 + z)]* 
Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 


(0.003394084952967016 - 1.380366207623351%*-7«*1I)*Sinc[2«(-Pi/2 + x)]* 


Sinc[2*(-Pi + y)]*Sinc[2*(-Pi/2 + z)]l«* 
Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 


(0.00340020722626581 + 1.3803662102229884%~*-7*1I)*Sinc[2*(Pi/2 + x)]* 


Sinc[2«*(-Pi + y)]*Sinc[2«*(-Pi/2 + z)]* 
Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 6.909111410747895«*-6 
Sinc[2«* (Pi + x)]*Sinc[2«(-Pi + y)]*Sinc[2«*(-Pi/2 + z)]* 


* 


* 
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Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 

(0.01975607433111183 - 1.3803662150764983%*-7«I) *Sinc [2«x] « 
Sinc[2«*(-Pi/2 + y)]*Sinc[2«*(-Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 

(0.003398554748116338 - 1.3803662143479144**-7«I) *Sinc[2*(-Pi + x)]* 
Sinc[2*(-Pi/2 + y)]*Sinc[2*(-Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 1.0149358428647101«*-6% 
Sinc[2«*(-Pi/2 + x)]«*Sinc[2«(-Pi/2 + y)]*Sinc[2«*(-Pi/2 + z)]l«* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 0.004018958617986247« 
Sinc[2«*(Pi/2 + x)]*Sinc[2«(-Pi/2 + y)]*Sinc[2«*(-Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 

(0.003398554748116338 - 1.3803662143479144%*-7%I) «Sinc[2*(Pi + x)]* 
Sinc[2«*(-Pi/2 + y)]«*Sinc[2«*(-Pi/2 + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 

(0.019754558322682452 + 1.3803662176713295**-7*I) *Sinc[2+*x] + 
Sinc[2«*(Pi/2 + y)]*Sinc[2«(-Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 

(0.003395734411969688 + 1.3803662117515856%*-7%I) «Sinc[2*(-Pi + x)]«* 
Sinc([2«*(Pi/2 + y)]*Sinc[2«(-Pi/2 + z)]«* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 0.004016923980550068% 
Sinc[2«(-Pi/2 + x)]*Sinc[2«*(Pi/2 + y)]*Sinc[2«(-Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 1.023611831355714%*-6« 
Sinc[2«*(Pi/2 + x)]*Sinc[2«(Pi/2 + y)]*Sinc[2*(-Pi/2 + z)]«* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 

(0.003395734411969688 + 1.3803662117515856**-7xI) *Sinc[2*(Pi + x)]* 
Sinc[2«*(Pi/2 + y)]*Sinc[2«(-Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 4.244042766820049**-6*Sinc[2*x] * 
Sinc[2*(Pi + y)]*Sinc[2*(-Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 6.909111410747895%*-6« 
Sinc[2«(-Pi + x)]*Sinc[2«(Pi + y)]*Sinc[2«*(-Pi/2 + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 

(0.003394084952967016 - 1.380366207623351**-7«I) *Sinc[2«(-Pi/2 + x)]* 
Sinc[2«*(Pi + y)]*Sinc[2«*(-Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 

(0.00340020722626581 + 1.3803662102229884**-7*I) *Sinc[2*(Pi/2 + x)]* 
Sinc[2* (Pi + y)]*Sinc[2«(-Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 6.909111410747895**-6« 

Sinc[2«* (Pi + x)]*Sinc[2«(Pi + y)]*Sinc[2*(-Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 1.720188110193226%*-6%Sinc[2*x] * 
Sinc[2«y] *Sinc[2«(Pi/2 + z)]*Sinc[Sqrt [13] *Log[t/(1.**-6 - t)]] + 
4.244042768948524%*-6*Sinc[2*(-Pi + x)]*Sinc[2*y]*Sinc[2«(Pi/2 + z)]* 
Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 

(0.01975772668212158 + 1.3803662105692666**-7%I) *Sinc[2«(-Pi/2 + x)]* 
Sinc[2*y]*Sinc[2«*(Pi/2 + z)]*Sinc[Sqrt [13] *Log[t/(1.**-6 - t)]] + 
(0.019752908736516056 - 1.380366213168904**-7«I) *Sinc[2«(Pi/2 + x)]«* 
Sinc[2*y] *Sinc[2*(Pi/2 + z)]*Sinc[Sqrt [13] *Log[t/(1.**-6 - t)]] + 
4.244042768948524%*-6*Sinc[2*(Pi + x)]*Sinc[2*y]*Sinc[2*(Pi/2 + z)]* 
Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 4.244042766823742%*-6*Sinc[2*x] * 
Sinc[2«*(-Pi + y)]*Sinc[2*(Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 6.9091114107490915«*-6% 
Sinc[2«(-Pi + x)]*Sinc[2«*(-Pi + y)]*Sinc[2«(Pi/2 + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 

(0.0034002072262658144 + 1.3803662102202652%*-7*I) *Sinc[2*(-Pi/2 + x)]* 
Sinc[2«(-Pi + y)]*Sinc[2«*(Pi/2 + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 

(0.003394084952967017 - 1.3803662076206258%*-7xI) «Sinc[2*(Pi/2 + x)]* 
Sinc[2«*(-Pi + y)]*Sinc[2*(Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 6.9091114107490915**-6% 
Sinc[2«* (Pi + x)]*Sinc[2«*(-Pi + y)]*Sinc[2«*(Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 

(0.019754558322682456 + 1.380366217670124%*-7«I) *Sinc [2*x] « 
Sinc[2«*(-Pi/2 + y)]*Sinc[2«*(Pi/2 + z)]«* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 

(0.0033957344119696885 + 1.3803662117503802«*-7*I)*Sinc[2*(-Pi + x)]* 
Sinc[2«(-Pi/2 + y)]*Sinc[2«*(Pi/2 + z)]«* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 1.023611831351811%*-6« 
Sinc[2«*(-Pi/2 + x)]*Sinc[2«*(-Pi/2 + y)]*Sinc[2*(Pi/2 + z)]* 

Since [Sqrt [13] *Log[t/(1.**-6 - t)]] - 0.004016923980550063* 
Sinc[2«*(Pi/2 + x)]*Sinc[2«(-Pi/2 + y)]*Sinc[2«*(Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 

(0.0033957344119696885 + 1.3803662117503802«*-7*I)*Sinc[2*(Pi + x)]* 
Sinc[2«*(-Pi/2 + y)]*Sinc[2«*(Pi/2 + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 

(0.01975607433111183 - 1.3803662150737952**-7«I) *Sinc [2*x] « 
Sinc[2«*(Pi/2 + y)]*Sinc[2«(Pi/2 + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 

(0.00339855474811634 - 1.3803662143495482**-7%I) *Sinc[2«(-Pi + x)]* 
Sinc[2«*(Pi/2 + y)]*Sinc[2«(Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 0.004018958617986247« 
Sinc[2«*(-Pi/2 + x)]*Sinc[2«*(Pi/2 + y)]*Sinc[2«*(Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 1.0149358428625417%*-6% 
Sinc[2«(Pi/2 + x)]*Sinc[2*(Pi/2 + y)]*Sinc[2«*(Pi/2 + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 

(0.00339855474811634 - 1.3803662143495482**-7*I) *Sinc[2«*(Pi + x)]* 
Sinc[2«*(Pi/2 + y)]*Sinc[2«(Pi/2 + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 4.244042766823742%*-6%Sinc[2*x] * 
Sinc[2*(Pi + y)]*Sinc[2*(Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 6.9091114107490915«*-6% 
Sinc[2«*(-Pi + x)]*Sinc[2«*(Pi + y)]*Sinc[2«*(Pi/2 + z)]* 
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Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 
(0.0034002072262658144 + 1.3803662102202652%*-7*I) *Sinc[2*(-Pi/2 + x)]* 
Sinc[2*(Pi + y)]*Sinc[2*(Pi/2 + z)]* 
Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 
(0.003394084952967017 - 1.3803662076206258**-7*I) *Sinc[2*(Pi/2 + x)]* 
Sinc[2*(Pi + y)]*Sinc[2*(Pi/2 + z)]* 
Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 6.9091114107490915«*-6% 
Sinc[2«*(Pi + x)]*Sinc[2«(Pi + y)]*Sinc[2*(Pi/2 + z)]* 
Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 0.033406007130283175« 
Sinc[2«*(-Pi/2 + x)]*Sinc[2«*y]*Sinc[2*(Pi + z)]* 
Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 0.03340600713028319« 
Sinc[2«*(Pi/2 + x)]*Sinc[2*y]*Sinc[2* (Pi + z)]* 
Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 0.005744537441176652« 
Sinc[2«*(-Pi/2 + x)]*Sinc[2«*(-Pi + y)]*Sinc[2*(Pi + z)]* 
Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 0.005744537441176652« 
Sinc[2«*(Pi/2 + x)]*Sinc[2*(-Pi + y)]*Sinc[2*(Pi + z)]* 
Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 0.03340600104954768*Sinc [2*x] * 
Sinc[2*(-Pi/2 + y)]*Sinc[2*(Pi + z)]* 
Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 0.005744527287599651« 
Sinc([2«(-Pi + x)]*Sinc[2«*(-Pi/2 + y)]*Sinc[2«*(Pi + z)]« 
Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 1.930923356624481%*-8« 
Sinc[2*(-Pi/2 + x)]«*Sinc[2*(-Pi/2 + y)]«*Sinc[2*(Pi + z)]+* 
Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 0.0067942906696565105+ 
Sinc[2«*(Pi/2 + x)]*Sinc[2*(-Pi/2 + y)]*Sinc[2«*(Pi + z)]* 
Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 0.005744527287599651« 
Sinc[2«* (Pi + x)]*Sinc[2«(-Pi/2 + y)]*Sinc[2«* (Pi + z)]* 
Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 0.03340600104954768*Sinc [2*x] + 
Sinc[2«*(Pi/2 + y)]*Sinc[2«(Pi + z)]* 
Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 0.005744527287599649% 
Sinc[2«*(-Pi + x)]*Sinc[2«*(Pi/2 + y)]*Sinc[2«*(Pi + z)]«* 
Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 0.0067942906696565105« 
Sinc[2«*(-Pi/2 + x)]*Sinc[2«*(Pi/2 + y)]*Sinc[2«(Pi + z)]«* 
Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 1.9309233567112172«*-8* 
Sinc[2«*(Pi/2 + x)]*Sinc[2*(Pi/2 + y)]*Sinc[2«*(Pi + z)]* 
Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 0.005744527287599649« 
Sinc[2«* (Pi + x)]*Sinc[2«(Pi/2 + y)]*Sinc[2*(Pi + z)]* 
Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 0.005744537441176652« 
Sinc[2«*(-Pi/2 + x)]*Sinc[2* (Pi + y)]*Sinc[2«* (Pi + z)]* 
Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 0.005744537441176652« 
Sinc[2«*(Pi/2 + x)]*Sinc[2*(Pi + y)]*Sinc[2«(Pi + z)]* 
Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 0.19426484481055037« 
Sinc[2«*(-Pi/2 + x)]«*Sinc[2«*y]*Sinc[2*z]* 
Since [Sqrt [13] «(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
0 .19426484481055037*Sinc[2«*(Pi/2 + x)]*Sinc[2s*y]*Sinc[2+*z] « 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
0.03340597531809336*Sinc[2+*(-Pi/2 + x)]*Sinc[2*(-Pi + y)]*Sinc[2*z]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
0.03340597531809335*Sinc[2*(Pi/2 + x)]*Sinc[2*(-Pi + y)]*Sinc[2+*z]+* 
Sinc [Sqrt [13] *(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
0.19426484413008782«Sinc [2*x] *Sinc[2*(-Pi/2 + y)]*Sinc[2«*z]« 
Since [Sqrt [13] «(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
0 .033405975469616614«Sinc[2*(-Pi + x)]*Sinc[2«*(-Pi/2 + y)]*Sinc[2*z]* 
Sinc [Sqrt [13] «* (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
2.077195068728166%*-9%Sinc[2*(-Pi/2 + x)]*Sinc[2*(-Pi/2 + y)]*Sinc[2*z]« 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
0.03951056796092764*Sinc[2*(Pi/2 + x)]*Sinc[2«*(-Pi/2 + y)]*Sinc[2«z]* 
Sinc [Sqrt [13] *(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
0.033405975469616614*Sinc[2* (Pi + x)]*Sinc[2*(-Pi/2 + y)]*Sinc[2*z]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
0 .1942648441300878*Sinc [2*x] *Sinc[2*(Pi/2 + y)]*Sinc[2*z]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
0.033405975469616635*Sinc[2*(-Pi + x)]*Sinc[2«*(Pi/2 + y)]*Sinc[2«z]* 
Sinc [Sqrt [13] «(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
0 .03951056796092764xSinc[2*(-Pi/2 + x)]*Sinc[2«*(Pi/2 + y)]*Sinc[2+*z]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
2.07719507566706**-9x*Sinc[2*(Pi/2 + x)]*Sinc[2«(Pi/2 + y)]*Sinc[2«*z]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
0.033405975469616635+Sinc[2* (Pi + x)]*Sinc[2*(Pi/2 + y)]*Sinc[2+*z]+* 
Sinc [Sqrt [13] *(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
0.03340597531809336*Sinc[2+*(-Pi/2 + x)]*Sinc[2*(Pi + y)]*Sinc[2+*z]* 
Sinc [Sqrt [13] «* (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
0 .03340597531809335*Sinc[2*(Pi/2 + x)]*Sinc[2*(Pi + y)]*Sinc[2«z]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
0. 03340597616795185*Sinc [2«*(-Pi/2 + x)]*Sinc[2«*y]*Sinc[2*(-Pi + z)]* 
Sinc [Sqrt [13] «* (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
0 .03340597616795185xSinc[2*(Pi/2 + x)]*Sinc[2s*y]*Sinc[2*(-Pi + z)]* 
Sinc[Sqrt [13] «(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
0.0057445264840502355*Sinc[2*(-Pi/2 + x)]*Sinc[2*(-Pi + y)]* 
Sinc[2«*(-Pi + z)]*Sinc[Sqrt [13] «*(-(Pi/Sqrt[13]) + 

Log[t/(1.**-6 - t)])] - 0.0057445264840502355*Sinc[2*(Pi/2 + x)]* 
Sinc[2«*(-Pi + y)]*Sinc[2*(-Pi + z)]* 
Sinc [Sqrt [13] *(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
0 .0334059746197612«Sinc [2*x] *Sinc[2«*(-Pi/2 + y)]*Sinc[2*(-Pi + z)]* 
Sinc [Sqrt [13] «* (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
0.005744523898890514*Sinc[2*(-Pi + x)]*Sinc[2«(-Pi/2 + y)]* 
Sinc([2«(-Pi + z)]*Sinc[Sqrt [13] *(-(Pi/Sqrt[13]) + 

Log[t/(1.**-6 - t)])] - 4.916240696657692+%*-9*Sinc[2*(-Pi/2 + x)]* 
Sinc[2«(-Pi/2 + y)]*Sinc[2«*(-Pi + z)]l«* 
Sinc[Sqrt [13] *(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
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0 .0067942766599453875*Sinc[2*(Pi/2 + x)]*Sinc[2«*(-Pi/2 + y)]* 
Sinc([2«*(-Pi + z)]*Sinc[Sqrt [13] «(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] - 0.005744523898890514*Sinc[2* (Pi + x)]* 
Sinc[2«*(-Pi/2 + y)]*Sinc[2«*(-Pi + z)]* 
Sinc [Sqrt [13] *(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
0.0334059746197612*Sinc [2*x] *Sinc[2*(Pi/2 + y)]*Sinc[2*(-Pi + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
0 .005744523898890513*Sinc[2*(-Pi + x)]*Sinc[2«*(Pi/2 + y)]* 
Sinc[2«*(-Pi + z)]*Sinc[Sqrt [13]«*(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] - 0.0067942766599453875+Sinc[2*(-Pi/2 + x)]* 
Sinc([2«(Pi/2 + y)]*Sinc[2*(-Pi + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
4.916240696657692%*-9*Sinc [2*(Pi/2 + x)]*Sinc[2*(Pi/2 + y)]* 
Sinc([2*(-Pi + z)]*Sinc[Sqrt [13] *(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] + 0.005744523898890513*Sinc[2* (Pi + x)]* 
Sinc[2«*(Pi/2 + y)]*Sinc[2*(-Pi + z)]* 
Since [Sqrt [13] *(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
0.0057445264840502355*Sinc[2*(-Pi/2 + x)]*Sinc[2*(Pi + y)]* 
Sinc([2«*(-Pi + z)]*Sinc[Sqrt [13] «(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] - 0.0057445264840502355*Sinc[2*(Pi/2 + x)]* 
Sinc[2«*(Pi + y)]*Sinc[2«(-Pi + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
4.379697836606021%*-7*Sinc [2*x] *«Sinc[2*y]*Sinc[2*(-Pi/2 + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
1.080557572602192+**-6*Sinc[2*(-Pi + x)]*Sinc[2*y]*Sinc[2*(-Pi/2 + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
(0.019754670818158175 - 3.514491181838126+*-8*I) *Sinc[2*(-Pi/2 + x)]* 
Sinc[2*y]*Sinc[2*(-Pi/2 + z)]«* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
(0.019755897494741888 + 3.51449117830917«*-8%I) *Sinc[2*(Pi/2 + x)]* 
Sinc[2*y]*Sinc[2«(-Pi/2 + z)]«* 
Sinc [Sqrt [13] «* (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
1.080557572602192%*-6*Sinc[2*(Pi + x)]*Sinc[2s*y]*Sinc[2*(-Pi/2 + z)]* 
Sinc [Sqrt [13] «(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
1.080557572377735**-6*Sinc [2*x] *Sinc[2*(-Pi + y)]*Sinc[2«*(-Pi/2 + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
1.7590992531286808+**-6*Sinc [2*(-Pi + x)]*Sinc[2*(-Pi + y)]* 
Sinc[2«*(-Pi/2 + z)]*Sinc[Sqrt [13] *(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] - (0.003396359139176669 - 
3.5144911762108944%*-8%1) *«Sinc[2*(-Pi/2 + x)]*Sinc[2*(-Pi + y)]* 
Sinc([2«*(-Pi/2 + z)]*Sinc[Sgrt [13]«*(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] + (0.003397917905115116 + 
3.51449117973984%*-8%1) *Sinc[2*(Pi/2 + x)]*Sinc[2«*(-Pi + y)]* 
Sinc([2«(-Pi/2 + z)]*Sinc[Sqrt [13]«*(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] - 1.7590992531286808%*-6*Sinc[2*(Pi + x)]* 
Sinc[2«*(-Pi + y)]*Sinc[2*(-Pi/2 + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
(0.019755476796746108 - 3.5144911840904905**-8#I) *Sinc[2+*x] + 
Sinc[2«*(-Pi/2 + y)]*Sinc[2«*(-Pi/2 + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
(0.00339749717474772 - 3.514491184827748%*-8*I) *Sinc[2*(-Pi + x)]«* 
Sinc[2«(-Pi/2 + y)]*Sinc[2«*(-Pi/2 + z)]* 
Sinc [Sqrt [13] «* (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
2.5840852166392203%*-7%Sinc[2*(-Pi/2 + x)]*Sinc[2*(-Pi/2 + y)]* 
Sinc([2«(-Pi/2 + z)]*Sinc[Sqrt [13]«*(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] - 0.0040181887616341444«Sinc[2*(Pi/2 + x)]* 
Sinc[2«*(-Pi/2 + y)]*Sinc[2«*(-Pi/2 + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
(0.00339749717474772 - 3.514491184827748**-8+I)*Sinc[2* (Pi + x)]* 
Sinc[2«*(-Pi/2 + y)]*Sinc[2«*(-Pi/2 + z)]* 
Sinc [Sqrt [13] «* (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
(0.01975509081220835 + 3.5144911875725066**-8%I) *Sinc [2«x] * 
Sinc[2«*(Pi/2 + y)]*Sinc[2«(-Pi/2 + z)]* 
Sinc [Sqrt [13] «* (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
(0.003396779100852104 + 3.514491181327502**-8%I) *Sinc[2«(-Pi + x)]* 
Sinc[2«*(Pi/2 + y)]*Sinc[2«(-Pi/2 + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
0.0040176707312049465*Sinc[2*(-Pi/2 + x)]*Sinc[2*(Pi/2 + y)]* 
Sinc[2*(-Pi/2 + z)]+*Sinc[Sqrt [13] *(-(Pi/Sgrt[13]) + 
Log[t/(1.**-6 - t)])] - 2.60617478438363+*-7*Sinc[2*(Pi/2 + x)]* 
Sinc[2«*(Pi/2 + y)]*Sinc[2«(-Pi/2 + z)]«* 
Sinc [Sqrt [13] «* (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
(0.003396779100852104 + 3.514491181327502**-8%I) *Sinc[2«*(Pi + x)]* 
Sinc([2«*(Pi/2 + y)]*Sinc[2*(-Pi/2 + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
1.080557572377735*~-6*Sinc [2*x] *Sinc[2*(Pi + y)]*Sinc[2«*(-Pi/2 + z)]* 
Since [Sqrt [13] «(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
1.7590992531286808**-6*Sinc[2*(-Pi + x)]*Sinc[2* (Pi + y)]* 
Sinc[2«*(-Pi/2 + z)]*Sinc[Sqrt [13] *(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] - (0.003396359139176669 - 
3.5144911762108944+*-8%I) *Sinc[2*(-Pi/2 + x)]*Sinc[2*(Pi + y)]* 
Sinc[2«(-Pi/2 + z)]*Sinc[Sqrt [13]«*(-(Pi/Sgqrt[13]) + 
Log[t/(1.**-6 - t)])] + (0.003397917905115116 + 
3.51449117973984%*-8x%1) *Sinc[2*(Pi/2 + x)]*Sinc[2*(Pi + y)]* 
Sinc([2«*(-Pi/2 + z)]*Sinc[Sqrt [13]«*(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] - 1.7590992531286808%*-6*Sinc[2*(Pi + x)]* 
Sinc[2*(Pi + y)]*Sinc[2«*(-Pi/2 + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
4.3796978366198045**-7*Sinc [2*x] *Sinc[2*y] *Sinc[2*(Pi/2 + z)]* 
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Sinc [Sqrt [13] *(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
1.0805575726026522«*-6*Sinc[2«(-Pi + x)]*Sinc[2*y]*Sinc[2«*(Pi/2 + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
(0.01975589749474189 + 3.514491178299842**-8+I) *Sinc[2*(-Pi/2 + x)]* 
Sinc[2*y] *Sinc[2*(Pi/2 + z)]*Sinc[Sqrt [13]*(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] + (0.01975467081815817 - 
3.514491181828798%*-8%I)*Sinc[2*(Pi/2 + x)]*Sinc[2«y]* 
Sinc[2«(Pi/2 + z)]*Sinc[Sqrt [13]*(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] + 1.0805575726026522%*-6*Sinc[2*(Pi + x)]* 
Sinc[2*y] *Sinc[2«(Pi/2 + z)]*Sinc[Sqrt [13] *(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] + 1.0805575723771528%*-6*Sinc[2*x] * 
Sinc[2«*(-Pi + y)]*Sinc[2«*(Pi/2 + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
1.7590992531274244**-6*Sinc [2*(-Pi + x)]*Sinc[2*(-Pi + y)]* 
Sinc[2«*(Pi/2 + z)]*Sinc[Sqrt [13]*(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] - (0.0033979179051151155 + 
3.514491179730511+**-8*I) *Sinc[2*(-Pi/2 + x)]*Sinc[2*(-Pi + y)]* 
Sinc[2«*(Pi/2 + z)]*Sinc[Sqrt [13]*(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] + (0.0033963591391766696 - 
3.514491176201565%*-8%1)*Sinc[2«*(Pi/2 + x)]*Sinc[2*(-Pi + y)]* 
Sinc([2«*(Pi/2 + z)]*Sinc[Sqrt [13]*(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] + 1.7590992531274244%*-6*Sinc[2*(Pi + x)]* 
Sinc[2«(-Pi + y)]*Sinc[2«*(Pi/2 + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
(0.01975509081220835 + 3.514491187613718**-8+I) *Sinc[2*x] * 
Sinc[2«*(-Pi/2 + y)]*Sinc[2«*(Pi/2 + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
(0.003396779100852104 + 3.5144911812819774%*-8%I) *Sinc[2*(-Pi + x)]«* 
Sinc[2«(-Pi/2 + y)]*Sinc[2«*(Pi/2 + z)]«* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
2.606174784387967**-7*Sinc[2«*(-Pi/2 + x)]*Sinc[2*(-Pi/2 + y)]* 
Sinc([2«*(Pi/2 + z)]*Sinc[Sqrt [13]*(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] - 0.0040176707312049465%Sinc[2*(Pi/2 + x)]« 
Sinc[2«(-Pi/2 + y)]*Sinc[2«*(Pi/2 + z)]«* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
(0.003396779100852104 + 3.5144911812819774**-8xI) *Sinc[2*(Pi + x)]+* 
Sinc[2«*(-Pi/2 + y)]*Sinc[2«*(Pi/2 + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
(0.019755476796746108 - 3.514491184048425+**-8%I) *Sinc [2«x] « 
Sinc[2«*(Pi/2 + y)]*Sinc[2«(Pi/2 + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
(0.003397497174747721 - 3.5144911848724184%*-8%I) «Sinc[2*(-Pi + x)]«* 
Sinc[2«*(Pi/2 + y)]*Sinc[2«(Pi/2 + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
0.0040181887616341444+Sinc[2*(-Pi/2 + x)]*Sinc[2s(Pi/2 + y)]* 
Sinc[2«*(Pi/2 + z)]*Sinc[Sqrt [13]*(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] + 2.584085216647894%*-7*Sinc[2*(Pi/2 + x)]* 
Sinc[2«*(Pi/2 + y)]*Sinc[2«*(Pi/2 + z)]* 
Since [Sqrt [13] *(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
(0.003397497174747721 - 3.5144911848724184%*-8xI) «Sinc[2*(Pi + x)]* 
Sinc[2«*(Pi/2 + y)]*Sinc[2«(Pi/2 + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
1.0805575723771528**-6*Sinc [2*x] *Sinc[2*(Pi + y)]*Sinc[2*(Pi/2 + z)]»* 
Sinc [Sqrt [13] «*(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
1.7590992531274244%*-6xSinc[2*(-Pi + x)]*Sinc[2«(Pi + y)]* 
Sinc[2«*(Pi/2 + z)]*Sinc[Sqrt [13]*(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] - (0.0033979179051151155 + 
3.514491179730511**-8*I) *Sinc[2*(-Pi/2 + x)]*Sinc[2*(Pi + y)]+* 
Sinc[2«*(Pi/2 + z)]*Sinc[Sqrt [13]*(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] + (0.0033963591391766696 - 
3.514491176201565%*-8«I)*Sinc[2*(Pi/2 + x)]*Sinc[2*(Pi + y)]* 
Sinc[2«*(Pi/2 + z)]*Sinc[Sqrt [13]*(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] + 1.7590992531274244%*-6*Sinc[2*(Pi + x)]* 
Sinc[2«*(Pi + y)]*Sinc[2*(Pi/2 + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
0.03340597616795185*Sinc [2*(-Pi/2 + x)]*Sinc[2«*y]*Sinc[2«*(Pi + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
0.03340597616795185*Sinc [2+ (Pi/2 + x)]*Sinc[2*y]*Sinc[2*(Pi + z)]* 
Sinc [Sqrt [13] *(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
0.0057445264840502355*Sinc[2«(-Pi/2 + x)]*Sinc[2*(-Pi + y)]* 
Sinc([2*(Pi + z)]*Sinc[Sqrt [13]*(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] - 0.0057445264840502355%Sinc[2*(Pi/2 + x)]« 
Sinc[2«*(-Pi + y)]*Sinc([2*(Pi + z)]* 
Sinc [Sqrt [13] «* (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
0.0334059746197612%Sinc [2*x] *Sinc[2*(-Pi/2 + y)]*Sinc[2«*(Pi + z)]* 
Sinc [Sqrt [13] «* (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 
0.005744523898890514*Sinc [2s (-Pi + x)]*Sinc[2«(-Pi/2 + y)]+* 
Sinc[2«* (Pi + z)]*Sinc[Sqrt [13]*(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] - 4.916240696657692**-9*Sinc[2*(-Pi/2 + x)]* 
Sinc[2«*(-Pi/2 + y)]*Sinc[2«*(Pi + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
0 .0067942766599453875*Sinc[2*(Pi/2 + x)]*Sinc[2*(-Pi/2 + y)]* 
Sinc([2*(Pi + z)]*Sinc[Sqrt [13]*(-(Pi/Sqrt[13]) + 
Log[t/(1.**-6 - t)])] - 0.005744523898890514+*Sinc[2«* (Pi + x)]* 
Sinc[2*(-Pi/2 + y)]*Sinc[2*(Pi + z)]* 
Sinc[Sqrt [13] «(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
0 .0334059746197612*Sinc [2*x] *Sinc[2*(Pi/2 + y)]*Sinc[2*(Pi + z)]«* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
0 .005744523898890513*Sinc [2*(-Pi + x)]*Sinc[2*(Pi/2 + y)]* 
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Sinc([2«*(Pi + z)]*Sinc[Sqrt [13]*(-(Pi/Sqrt[13]) + 

Log[t/(1.**-6 - t)])] - 0.0067942766599453875*Sinc[2«(-Pi/2 + x)]* 
Sinc[2«*(Pi/2 + y)]*Sinc[2*(Pi + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
4.916240696657692**-9*Sinc[2*(Pi/2 + x)]*Sinc[2*(Pi/2 + y)]* 
Sinc[2«* (Pi + z)]*Sinc[Sqrt [13]*(-(Pi/Sqrt[13]) + 

Log[t/(1.**-6 - t)])] + 0.005744523898890513*Sinc[2* (Pi + x)]* 
Sinc[2«*(Pi/2 + y)]*Sinc[2«(Pi + z)]* 
Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
0.0057445264840502355*Sinc[2*(-Pi/2 + x)]*Sinc[2*(Pi + y)]* 
Sinc([2«(Pi + z)]*Sinc[Sqrt [13]*(-(Pi/Sqrt[13]) + 

Log[t/(1.**-6 - t)])] - 0.0057445264840502355«*Sinc[2*(Pi/2 + x)]* 
Sinc[2*(Pi + y)]*Sinc[2*(Pi + z)]* 
Since [Sqrt [13] *(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
0.19426502871643547*Sinc[2*(-Pi/2 + x)]*Sinc[2*y] *Sinc[2*z]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
0 .19426502871643547*Sinc [2+ (Pi/2 + x)]*Sinc[2*y]*Sinc[2*z] * 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
0 .033406032366676504*Sinc [2*(-Pi/2 + x)]*Sinc[2«*(-Pi + y)]*Sinc[2+*z]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
0 .03340603236667651xSinc[2*(Pi/2 + x)]*Sinc[2*(-Pi + y)]*Sinc[2«z]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
0 .19426502495039955xSinc [2*x] *Sinc[2«(-Pi/2 + y)]*Sinc[2«z]« 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
0.03340603320526265*Sinc[2*(-Pi + x)]*Sinc[2*(-Pi/2 + y)]*Sinc[2«z]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
1.1496322643855805**-8xSinc[2*(-Pi/2 + x)]*Sinc[2«*(-Pi/2 + y)]*Sinc[2+*z]+* 
Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
0.039510700111572095*Sinc [2% (Pi/2 + x)]*Sinc[2«(-Pi/2 + y)]*Sinc[2+*z]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
0.03340603320526265«Sinc[2* (Pi + x)]*Sinc[2«*(-Pi/2 + y)]*Sinc[2+*z]+* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
0 .19426502495039952«Sinc [2*x] «Sinc[2*(Pi/2 + y)]*Sinc[2*z]« 
Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
0. 03340603320526265*Sinc [2*(-Pi + x)]+*Sinc[2*(Pi/2 + y)]*Sinc[2*z]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
0.03951070011157209*Sinc [2*(-Pi/2 + x)]*Sinc[2*(Pi/2 + y)]*Sinc[2*z]* 
Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
1.1496322650794699%*-8xSinc[2*(Pi/2 + x)]*Sinc[2«*(Pi/2 + y)]*Sinc[2«z]* 
Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
0 .03340603320526265xSinc[2* (Pi + x)]*Sinc[2*(Pi/2 + y)]*Sinc[2«z]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
0 .033406032366676504*Sinc [2*(-Pi/2 + x)]*Sinc[2*(Pi + y)]*Sinc[2«z]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
0 .03340603236667651xSinc[2*(Pi/2 + x)]*Sinc[2*(Pi + y)]*Sinc[2«z]* 
Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
0.03340603707026164*Sinc[2*(-Pi/2 + x)]*Sinc[2*y]*Sinc[2*(-Pi + z)]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
0.03340603707026164*Sinc[2+*(Pi/2 + x)]*Sinc[2*y]*Sinc[2*(-Pi + z)]+* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
0.005744546691152506*Sinc [2s (-Pi/2 + x)]*Sinc[2*(-Pi + y)]«* 
Sinc[2«*(-Pi + z)]*Sinc[Sqrt [13]* (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
0.005744546691152506«Sinc [2x (Pi/2 + x)]*Sinc[2s*(-Pi + y)]* 
Sinc([2*(-Pi + z)]*Sinc[Sqrt [13] *(Pi/Sgqrt [13] + Log[t/(1.**-6 - t) 
0 .03340602850173715*Sinc [2*x] *Sinc[2*(-Pi/2 + y)]*Sinc[2«*(-Pi + z) 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
0 .005744532383479583*Sinc [2*(-Pi + x)]*Sinc[2*(-Pi/2 + y)]* 
Sinc([2«*(-Pi + z)]*Sinc[Sqrt [13] «*(Pi/Sgqrt [13] + Log[t/(1.**-6 - t)])] - 
2.7209175158630916**-8*Sinc [2*(-Pi/2 + x)]*Sinc[2«*(-Pi/2 + y)]* 
Sinc([2*(-Pi + z)]*Sinc[Sqrt [13]*(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
0 .006794304679383288*Sinc[2*(Pi/2 + x)]*Sinc[2«*(-Pi/2 + y)]«* 
Sinc[2«*(-Pi + z)]*Sinc[Sqrt [13]«*(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
0.005744532383479583%Sinc [2% (Pi + x)]*Sinc[2«(-Pi/2 + y)]* 
Sinc[2«*(-Pi + z)]*Sinc[Sqrt [13] «* (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
0 .03340602850173715*Sinc [2*x] *Sinc[2*(Pi/2 + y)]*Sinc[2*(-Pi + z)]* 
Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
0.005744532383479583*Sinc[2*(-Pi + x)]*Sinc[2*(Pi/2 + y)]* 
Sinc[2*(-Pi + z)]*Sinc[Sqrt [13]*(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
0 .006794304679383288*Sinc [2*(-Pi/2 + x)]*Sinc[2*(Pi/2 + y)]* 
Sinc[2*(-Pi + z)]*Sinc[Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
2.7209175156896193%*-8%Sinc [2 (Pi/2 + x)]*Sinc[2*(Pi/2 + y)]« 
Sinc([2«*(-Pi + z)]*Sinc[Sqrt [13]«*(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
0.005744532383479583*Sinc[2* (Pi + x)]*Sinc[2«(Pi/2 + y)]«* 
Sinc[2*(-Pi + z)]*Sinc[Sqrt [13] «* (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
0 .005744546691152506*Sinc [2 (-Pi/2 + x)]*Sinc[2«*(Pi + y)]« 
Sinc[2«*(-Pi + z)]*Sinc[Sqrt [13]*(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
0.005744546691152506*Sinc[2«(Pi/2 + x)]*Sinc[2*(Pi + y)]* 
Sinc[2*(-Pi + z)]*Sinc[Sqrt [13]*(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
2.4239635754677605+*-6*Sinc [2*x] *Sinc [2*y] *Sinc[2*(-Pi/2 + z)]* 
Sinc [Sqrt [13] «*(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
5 .980396603540217**-6*Sinc[2*(-Pi + x)]*Sinc[2*y]*Sinc[2*(-Pi/2 + z)]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
(0.019751956480725787 - 1.9451118957165143%*-7%I) «Sinc[2*(-Pi/2 + x)]* 
Sinc[2*y]*Sinc[2«(-Pi/2 + z)]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
(0.019758745578843447 + 1.9451118889551617%*-7%I) «Sinc[2*(Pi/2 + x)]* 
Sinc[2«*y]*Sinc[2«(-Pi/2 + z)]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
5 .980396603540217**-6*Sinc[2* (Pi + x)]*Sinc[2*y]*Sinc[2*(-Pi/2 + z)]* 
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Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
5 .980396595435747%~-6*Sinc [2*x] *Sinc[2«*(-Pi + y)]*Sinc[2«*(-Pi/2 + z)]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
9.735818017593764**-6*Sinc[2*(-Pi + x)]*Sinc[2*(-Pi + y)]* 
Sinc[2*(-Pi/2 + z)]*Sinc[Sqrt [13] *(Pi/Sqrt [13] + 
Log[t/(1.**-6 - t)])] - (0.003392839872648702 - 
1.945111876729911%*-7*I) *Sinc[2*(-Pi/2 + x)]*Sinc[2«*(-Pi + y)]« 
Sinc([2«(-Pi/2 + z)]*Sinc[Sqrt [13] *(Pi/Sqrt [13] + 
Log[t/(1.**-6 - t)])] + (0.0034014669339236486 + 
1.945111883491252«*-7*1I)*Sinc[2«*(Pi/2 + x)]*Sinc[2+*(-Pi + y)]* 
Sinc[2*(-Pi/2 + z)]*Sinc[Sqrt [13] *(Pi/Sqrt [13] + 
Log[t/(1.**-6 - t)])] - 9.735818017593764**-6*Sinc[2*(Pi + x)]* 
Sinc[2«*(-Pi + y)]*Sinc[2«*(-Pi/2 + z)]* 
Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
(0.01975641720563834 - 1.9451119005861949+*-7*I) *Sinc [2*x] * 
Sinc[2«*(-Pi/2 + y)]*Sinc[2«*(-Pi/2 + z)]* 
Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
(0.003399138381574971 - 1.9451118922725326%*-7%I) «Sinc[2*(-Pi + x)]«* 
Sinc[2«(-Pi/2 + y)]*Sinc[2«*(-Pi/2 + z)]l* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
1.4301733322497762«*-6*Sinc [2*(-Pi/2 + x)]*Sinc[2*(-Pi/2 + y)]* 
Sinc[2«(-Pi/2 + z)]+*Sinc[Sqrt [13] *(Pi/Sqrt [13] + 
Log[t/(1.**-6 - t)])] - 0.00401938638325325*Sinc[2*(Pi/2 + x)]* 
Sinc[2«*(-Pi/2 + y)]*Sinc[2«*(-Pi/2 + z)]* 
Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
(0.003399138381574971 - 1.9451118922725326**-7*I) *Sinc[2* (Pi + x)]* 
Sinc[2«*(-Pi/2 + y)]*Sinc[2«*(-Pi/2 + z)]* 
Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
(0.019754280957921626 + 1.9451119073480568%*-7+I) *Sinc[2*x] + 
Sinc[2«*(Pi/2 + y)]*Sinc[2«(-Pi/2 + z)]«* 
Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
(0.0033951641706343482 + 1.945111885512225%*-7«I) *«Sinc[2*(-Pi + x)]«* 
Sinc[2«*(Pi/2 + y)]*Sinc[2«(-Pi/2 + z)]* 
Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
0 .00401651932102497*Sinc [2+ (-Pi/2 + x)]*Sinc[2«*(Pi/2 + y)]* 
Sinc[2«*(-Pi/2 + z)]*Sinc[Sqrt [13] *(Pi/Sqrt [13] + 
Log[t/(1.**-6 - t)])] - 1.4423988992377963**-6*Sinc[2*(Pi/2 + x)]* 
Sinc[2«*(Pi/2 + y)]*Sinc[2*(-Pi/2 + z)]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
(0.0033951641706343482 + 1.945111885512225%*-7%I) *Sinc[2* (Pi + x)]* 
Sinc[2«*(Pi/2 + y)]*Sinc[2«(-Pi/2 + z)]«* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
5 .980396595435747%~-6*Sinc [2*x] *Sinc[2*(Pi + y)]*Sinc[2«*(-Pi/2 + z)]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
9.735818017593764%*-6*Sinc[2*(-Pi + x)]*Sinc[2«(Pi + y)]* 
Sinc[2*(-Pi/2 + z)]*Sinc[Sqrt [13] *(Pi/Sqrt [13] + 
Log[t/(1.**-6 - t)])] - (0.003392839872648702 - 
1.945111876729911**-7*1) *Sinc[2*(-Pi/2 + x)]*Sinc[2*(Pi + y)]+* 
Sinc([2*(-Pi/2 + z)]*Sinc[Sqrt [13] *(Pi/Sqrt [13] + 
Log[t/(1.**-6 - t)])] + (0.0034014669339236486 + 
1.945111883491252«*-7*I)*Sinc[2*(Pi/2 + x)]*Sinc[2*(Pi + y)]* 
Sinc[2*(-Pi/2 + z)]*Sinc[Sqrt [13] *(Pi/Sqrt [13] + 
Log[t/(1.**-6 - t)])] - 9.735818017593764**-6*Sinc[2*(Pi + x)]* 
Sinc[2*(Pi + y)]*Sinc[2«*(-Pi/2 + z)]* 
Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
2.4239635754637507+*-6*Sinc [2x] *Sinc[2*y] *Sinc[2*(Pi/2 + z)]* 
Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
5 .980396603545911+*-6*Sinc[2*(-Pi + x)]*Sinc[2*y]*Sinc[2*(Pi/2 + z)]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
(0.01975874557884345 + 1.9451118889547509**-7*I) *Sinc[2*(-Pi/2 + x)]* 
Sinc[2*y]*Sinc[2*(Pi/2 + z)]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
(0.01975195648072579 - 1.9451118957161024**-7«I) *Sinc[2*(Pi/2 + x)]* 
Sinc[2*y]*Sinc[2«(Pi/2 + z)]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
5.980396603545911**-6*Sinc[2* (Pi + x)]*Sinc[2«*y]*Sinc[2«*(Pi/2 + z)]* 
Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
5 .980396595435075+**-6*Sinc [2*x] *Sinc[2*(-Pi + y)]*Sinc[2*(Pi/2 + z)]* 
Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
9.735818017592754**-6*Sinc[2*(-Pi + x)]*Sinc[2*(-Pi + y)]* 
Sinc[2*(Pi/2 + z)]+*Sinc[Sqrt [13]*(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] 
(0.003401466933923649 + 1.9451118834908423%*-7%I) «Sinc[2*(-Pi/2 + x)]* 
Sinc[2«*(-Pi + y)]*Sinc[2«*(Pi/2 + z)]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
(0.0033928398726486998 - 1.945111876729495%*-7%I) *Sinc[2*(Pi/2 + x)]* 
Sinc[2«*(-Pi + y)]*Sinc[2«*(Pi/2 + z)]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
9.735818017592754**-6*Sinc[2* (Pi + x)]*Sinc[2*(-Pi + y)]* 
Sinc([2*(Pi/2 + z)]+*Sinc[Sqrt [13]*(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
(0.01975428095792163 + 1.9451119073467656**-7*I) *Sinc [2*x] * 
Sinc[2«*(-Pi/2 + y)]*Sinc[2«*(Pi/2 + z)]* 
Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
(0.003395164170634348 + 1.9451118855109338%*-7%I) «Sinc[2*(-Pi + x)]«* 
Sinc[2«*(-Pi/2 + y)]*Sinc[2«*(Pi/2 + z)]«* 
Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
1.442398899235628%~-6*Sinc[2*(-Pi/2 + x)]*Sinc[2«*(-Pi/2 + y)]* 
Sinc[2*(Pi/2 + z)]+*Sinc[Sqrt [13]*(Pi/Sqrt[13] + Log[t/(1.**-6 - t)])] - 
0 .0040165193210249675*Sinc[2*(Pi/2 + x)]*Sinc[2*(-Pi/2 + y)]* 


Sinc[2*(Pi/2 + z)]*Sinc[Sqrt[13]*(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 


170 


(0.003395164170634348 + 1.9451118855109338%*-7%I) *Sinc[2* (Pi + x)]* 
Sinc[2«(-Pi/2 + y)]*Sinc[2«*(Pi/2 + z)]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
(0.019756417205638345 - 1.94511190058646**-7+#I) *Sinc [2*x] * 
Sinc[2«*(Pi/2 + y)]*Sinc[2«(Pi/2 + z)]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
(0.0033991383815749716 - 1.9451118922727978«*-7*I) *Sinc[2*(-Pi + x)]* 
Sinc[2«*(Pi/2 + y)]*Sinc[2«(Pi/2 + z)]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
0 .004019386383253253*Sinc[2*(-Pi/2 + x)]*Sinc[2«*(Pi/2 + y)]«* 
Sinc[2*(Pi/2 + z)]*Sinc[Sqrt [13]*(Pi/Sqrt[13] + Log[t/(1.**-6 - t)])] + 
1.430173332247174%*-6*Sinc[2«(Pi/2 + x)]*Sinc[2«(Pi/2 + y)l* 
Sinc([2*(Pi/2 + z)]*Sinc[Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
(0.0033991383815749716 - 1.9451118922727978**-7#I)*Sinc[2*(Pi + x)]* 
Sinc[2«*(Pi/2 + y)]*Sinc[2«(Pi/2 + z)]* 
Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
5 .980396595435075*~-6*Sinc [2*x] *Sinc[2«* (Pi + y)]*Sinc[2*(Pi/2 + z)]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
9.735818017592754%*-6*Sinc[2*(-Pi + x)]*Sinc[2*(Pi + y)]* 
Sinc[2«*(Pi/2 + z)]+*Sinc[Sqrt [13]*(Pi/Sqrt[13] + Log[t/(1.**-6 - t)])] - 
(0.003401466933923649 + 1.9451118834908423%*-7«I) *Sinc[2*(-Pi/2 + x)]* 
Sinc[2«*(Pi + y)]*Sinc[2*(Pi/2 + z)]* 
Sinc [Sqrt [13] * (Pi/Sgrt [13] + Log[t/(1.**-6 - t)])] + 
(0.0033928398726486998 - 1.945111876729495**-7*I) *Sinc[2+*(Pi/2 + x)]* 
Sinc[2* (Pi + y)]*Sinc[2*(Pi/2 + z)]* 
Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
9.735818017592754**-6*Sinc[2*(Pi + x)]*Sinc[2«*(Pi + y)]* 
Sinc[2*(Pi/2 + z)]*Sinc[Sqrt [13]*(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
0. 03340603707026164*Sinc[2*(-Pi/2 + x)]*Sinc[2«*y]*Sinc[2*(Pi + z)]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
0 .03340603707026164xSinc [2 (Pi/2 + x)]*Sinc[2s*y]*Sinc[2*(Pi + z)]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
0.005744546691152506*Sinc [2s (-Pi/2 + x)]*Sinc[2«(-Pi + y)]+* 
Sinc[2*(Pi + z)]*Sinc[Sqrt[13]*(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
0.005744546691152506*Sinc[2*(Pi/2 + x)]*Sinc[2*(-Pi + y)]* 
Sinc[2*(Pi + z)]*Sinc[Sqrt[13]*(Pi/Sqrt[13] + Log[t/(1.**-6 - t)])] - 
0 .03340602850173715*Sinc [2+*x] *Sinc[2*(-Pi/2 + y)]*Sinc[2*(Pi + z)]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
0.005744532383479583xSinc[2*(-Pi + x)]*Sinc[2*(-Pi/2 + y)]* 
Sinc[2*(Pi + z)]*Sinc[Sqrt[13]«*(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 
2.7209175158630916%*-8%Sinc [2% (-Pi/2 + x)]*Sinc[2*(-Pi/2 + y)]* 
Sinc[2«*(Pi + z)]*Sinc[Sqrt[13]*(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
0 .006794304679383288%Sinc[2*(Pi/2 + x)]*Sinc[2«*(-Pi/2 + y)]«* 
Sinc[2«*(Pi + z)]*Sinc[Sqrt [13]*(Pi/Sqrt[13] + Log[t/(1.**-6 - t)])] - 
0.005744532383479583%Sinc(2* (Pi + x)]*Sinc[2«(-Pi/2 + y)]«* 
Sinc(2*(Pi + z)]*Sinc[Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
0.03340602850173715*Sinc [2+x] *Sinc[2*(Pi/2 + y)]*Sinc[2*(Pi + z)]* 
Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
0 .005744532383479583*Sinc [2*(-Pi + x)]*Sinc[2*(Pi/2 + y)]* 
Sinc[2«*(Pi + z)]*Sinc[Sqrt[13]*(Pi/Sqrt[13] + Log[t/(1.**-6 - t)])] - 
0 .006794304679383288*Sinc [2*(-Pi/2 + x)]*Sinc[2«*(Pi/2 + y)]« 
Sinc[2«*(Pi + z)]*Sinc[Sqrt[13]*(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
2.7209175156896193%*-8%Sinc [2 (Pi/2 + x)]*Sinc[2*(Pi/2 + y)]« 
Sinc[2*(Pi + z)]*Sinc[Sqrt [13]«*(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
0 .005744532383479583%Sinc [2* (Pi + x)]*Sinc[2*(Pi/2 + y)]* 
Sinc[2*(Pi + z)]*Sinc[Sqrt[13]*(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 
0.005744546691152506*Sinc [2+ (-Pi/2 + x)]*Sinc[2*(Pi + y)]* 
Sinc[2*(Pi + z)]*Sinc[Sqrt[13]*(Pi/Sqrt[13] + Log[t/(1.**-6 - t)])] - 
0.005744546691152506*Sinc[2*(Pi/2 + x)]*Sinc[2*(Pi + y)]* 
Sinc[2«*(Pi + z)]*Sinc[Sqrt[13]*(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])]], 
ph -> Function[{x, y, 2, t}, 
(-0.305218261906143021548210947705630965753793731930482147272438615059079\ 
81399233666885935232330293898958390638378894267863515278536106724 120.1505149\ 
9783198 + 4.45036021781852015609377716706552264689388981338905526084486647517\ 
073887681876463104059261436518565748918518836154151840274252'111.314299647691\ 
98%*-10%1) *Sinc [2+*x] *Sinc [2*y] *Sinc [2*z] *Sinc [Sqrt [13] «Log[t/(1.**-6 - t)]] - 
(0.129838044665865336842913087904320450372490583529211382543731636513560\, 
573476944773014826355563892092764982055272632834098231953620063647'120.147660\ 
50687132 + 9.8123720382691675085125092159626782821991290791433964549975285243\ 
0250128248691023667357620085092219669787479932325091196421033'112.02603254660\ 
754**-10*1)*Sinc[2*(-Pi + x)]*Sinc[2«y]+*Sinc[2«*z]* 
Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 
(0.444711593945345832644512558245489585934347567200978140104168093544562\, 
278074774805924601606578113762547529911166737921701740399136635616'120.150509\ 
5025504 + 2.22149739906406929431840768081856035882572182846158533742543949410\ 
331476520529017842696017480813431930631667529446444550131453 ‘110. 849076859693\ 
88%*-10«1) *Sinc[2*(-Pi/2 + x)]*Sinc[2«*y]*Sinc[2«*z] * 
Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 
(0.444711593945345868131565508483697626608943012459601761714010205146522\, 
09024550520585391443810035552867775137903386936343476032558352474 '120.1505095\ 
025504 + 2.221497680327678031950980046532600351743060485684625268206797692187\ 
27631800799832834035303142154467438487634645986865771624081'110.84907691467987\ 
**-10«I)*Sinc[2*(Pi/2 + x)]*Sinc[2*y]*Sinc[2*z]« 
Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 
(0.129838044665865326039471828854759454428442963621791298990495606180286\, 
388856640583884471796582127271464939796061639859303564555057270409'120.147660\ 
50687132 + 9.8123716675791380754324964757247056831397921263747359750161131586\ 
1919191506103527177414430875881892703169224847310829071662725 ‘112 .02603253020\ 
082**-10*I)*Sinc[2*(Pi + x)]*Sinc[2*y]*Sinc[2*z] * 


B_ Result Notes 


B.1 


Example File of Results 


Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 

(0.129838039218250499869828905238349040095291427423909517897294237033091\ 
693427413937704046108738043035474956905228638127778007960739441333'120.147660\ 
6067214 - 1.93484214679760204091032399723466515944806314116326425803393214801\ 
1895502725593995542980973715022795281763114090658844250123568'112.32090419754\ 
648x*-9x1) *Sinc[2*x] *Sinc[2*(-Pi + y)]*Sinc[2*z]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 

(2..514992648066700032313833955090591408528230310086350980240580798398789\, 
576795001124870271023908939974701647778260466199124864257684769727'120.129684\ 
58692983 - 2.4233219427422679845778429962781132785319562339577077190048852937\ 
96783424196068467841243062187507599615508249337467325940088446 ‘112.1135589818\ 
6895**-8+1I)*Sinc[2*(-Pi + x)]*Sinc[2«*(-Pi + y)]*Sinc[2+*z]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 

(0.186345481165961307472730527831632321749164096804015190712880430464382\ 
61569360403571815292915548385356607140926475641624906152834978067 ‘119 .6829061\ 
0225135 + 0.21533712771583050646547452008450306417732094335628378972931628133\ 
7393005258942071821936933897829242054783170387355945907434050633577932'119.74\ 
570615247134«1) «Sinc[2*(-Pi/2 + x)]*Sinc[2«*(-Pi + y)]*Sinc[2«z]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 

(0.217460142334621138917206436134756208626408099119026603174022142688177\ 
170702951660947154448053927668495975425416205091436377036949269111'119.742274\ 
65398712 + 0.2071226184745769237076630917851343903114172223632922162128509437\ 
40382024972120583236118527470999620925492355426694626624194596642145084'119.7\ 
2112251390776*I) *Sinc[2*(Pi/2 + x)]*Sinc[2*(-Pi + y)]*Sinc[2+*z]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 

(2.616958933496691095267476251560345118288956490452720964137608002775079\, 
579087968593034556293627233773033589472909537649766127498727581445'120.128181\ 
67570661 + 2.4315299653787053804574712809897627490953978271433175664142734374\ 
127592042595183225661711974867080717451866545626068125451802661'112.096264394\ 
19878**-8+I)*Sinc[2*(Pi + x)]*Sinc[2«*(-Pi + y)]*Sinc[2+*z]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 

(0.444711585180893316689195646260232439079592617951282007830363646656762\, 
240074126733827922795422366712342342332883625305859133104171965713'120.150509\ 
50257431 + 5.3156225202371235816150435530757684551441454345096761608411626711\ 
894926753696244224930912315484955947014761994648555104624259'111.227985191865\ 
36**-10*I) *Sinc [2*x] *Sinc[2*(-Pi/2 + y)]*Sinc[2«*z]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 

(2.315024023149737046407483065911930513423818822077032520956800582795778\, 
365474971588648108570561408257517065614375055597119593093748507144'120.143252\ 
05647128 + 0.2153371282559016163437098624324242793030251449037215234074008658\ 
12264509915604485115470509570481907420038783080653323870705519416400808'119.1\ 
1181547138067+1I) *Sinc [2+ (-Pi + x)]*Sinc[2«*(-Pi/2 + y)]*Sinc[2*z]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 

(0.166354321209578233747555130019462141488154896962177116963899226520656\, 
324833158481203984697257405450015633809960698991834758585655434912'119.931437\ 
4536839 + 4.36852265201292163220347373176791567350537646685039493436264616945\ 
3472767038185896821294102160398153118582304148539234606882384 ‘112. 35073795911\ 
796**-9xI) *Sinc[2*(-Pi/2 + x)]*Sinc[2*(-Pi/2 + y)]*Sinc[2+*z]+* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 

(0.168479974144282915592408477487151134960054289499187486956250110764341\ 
046777756395806003075672125949663656902311059872321337443068252049'119.958710\ 
01933277 - 3.6314763216773966848220373027856223028013199890968511538502221791\ 
16513679061322221443171696692356122404431365051207313404154622'112.2922449489\ 
1564%*-9*1)*Sinc[2*(Pi/2 + x)]*Sinc[2«*(-Pi/2 + y)]*Sinc[2«*z]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 

(2.333943976353062183334622357945482271630475544322143210463149656345056\, 
771150984570239787578982665684038839944914866400502025425074916823'120.144028\ 
6221726 + 0.20712262023709891513660893560270082510286546009035475012683683905\ 
7398516773106526474181008854074873811902334151893398460627737822336072'119.09\ 
216572665063*I) *Sinc[2* (Pi + x)]*Sinc[2*(-Pi/2 + y)]*Sinc[2*z]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 

(0.444711585180893307278034429916991424019596579019419584922310893226986\, 
548842866961282519082459353989476627011254846293666376921442060448'120.150509\ 
5025743 + 5.31562219648245633504927033457368393185178843506870626569886841587\ 
94199513272870438458704994650593638884580566593595577398868 '111.22798516541408\ 
**-10«1I) *Sinc[2*x]*Sinc[2«*(Pi/2 + y)]*Sinc[2«*z]« 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 

(2.333943976353062378306256494128611219619974496419063292158354405556025\, 
532994798372473164619987166168443283629717609800690041529290729735'120.144028\ 
62217257 + 0.2071226202370989676308641570165488336926575750539402739996245424\ 
69376137216796009576186116134526470001190081900262409376688367409723897'119.0\ 
9216572665062«1)*Sinc[2*(-Pi + x)]*Sinc[2«(Pi/2 + y)]*Sinc[2«z]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 

(0.168479974144282921160944248163445753962088842067580725457112531391528\, 
246428099697925112971765439957131755639161504015405513507678696601'119.958710\ 
01933277 - 3.6314763092294128009476654086965137753960883961412013529669059693\ 
47529287807394675012147539536051552645978935942510944396018258'112.2922449474\ 
2694%*-9xI)*Sinc[2*(-Pi/2 + x)]*Sinc[2*(Pi/2 + y)]*Sinc[2+*z]+* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 

(0.166354321209578227372367659500947131295824755242336799473264630351814\, 
189232853744887123779274859018540416924308197368008661325304608921'119.931437\ 
4536839 + 4.36852264050523451110574559194478234299094546655136159723753993330\ 
0539597254538444778974356112707418830205380368757237262113801'112.35073795797\ 
395%*-9+I)*Sinc[2*(Pi/2 + x)]*Sinc[2*(Pi/2 + y)]*Sinc[2*z]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 

(2.315024023149737032929197986613617841691466855472273322929063166394009\, 
258573162420071624855428275021656216458462351877658258209178040847'120.143252\ 
05647128 + 0.2153371282559015959635922689168592191279054411831327592848933359\ 
92480224497108759958494142074135212207457242836381692060740882706447897'119.1\ 
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1181547138067«1I)*Sinc[2«* (Pi + x)]*Sinc[2«*(Pi/2 + y)]*Sinc[2*z]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 

(0.129838039218250508979013112499166381321454385108878757657153490530184\, 
30415684775350753368330756346558579240867268006627540220748898278 '120.1476606\ 
0672143 - 1.93484218148141401814288516506773279528901107393308671004618590818\ 
679438502508014727973780969550287923746946143928805331120188'112.3209042053316\ 
«*-9%I)*Sinc [2+*x] *Sinc[2*(Pi + y)]*Sinc[2«z] « 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 

(2.616958933496690926666911930818134904677178876072253940743729295018711\ 
097281124445475228479072971246921894029733961044623896419033196098'120.128181\ 
67570663 + 2.4315299690585101639858517291364232949200327801392298346073095816\ 
455745116281918336910508887907754912844462732857228118165625064'112.096264394\ 
856084*-8+I)*Sinc[2*(-Pi + x)]*Sinc[2* (Pi + y)]*Sinc[2+*z]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 

(0.217460142334621398876134404929023706893479538080476253926287659118893\, 
372060586887326424498837442176770563374093490810374589878240468412'119.742274\ 
65398714 + 0.2071226184745769169711112076956013229516665899561016736317638828\ 
00276868862337371183253771448661320250828651010127537696669132265029846'119.7\ 
2112251390777*1) *Sinc[2*(-Pi/2 + x)]*Sinc[2«*(Pi + y)]*Sinc[2«z]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 

(0.186345481165961110921581598751287065836503396499987711144145988807018\, 
468275476411501860805328780789109598851483321850044380458019215322'119.682906\ 
10225135 + 0.2153371277158304786938444195469265252783653280515455030075625055\ 
79954003560675336778101522385955945333962942052727968786648664073577889'119.7\ 
4570615247134*1I) *Sinc[2*(Pi/2 + x)]*Sinc[2*(Pi + y)]*Sinc[2*z]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 

(2.514992648066699287956489713930524148123081746725640763246185936494642\, 
555263564899081314893618102977641146504347299345141829294719053066'120.129684\ 
58692984 - 2.4233219297769586464022977480178503063239665294644264139327445937\ 
648234429412983874123426239064448720186963034986973161537495713 '112.113558979\ 
54537«*-8xI)*Sinc[2* (Pi + x)]*Sinc[2«*(Pi + y)]*Sinc[2*z]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 

(0.129838050405470073472203648913607406282339746923343538217002068414968\, 
231355498400230556854247876650405285581262044590839029415947287621'120.147660\ 
58893775 - 1.2072792534786907856787242901299931219625751161301231255505086448\ 
1542406013041544115827541701950122375439206082339870349127482'111.11606634080\ 
89x*-10*1) *Sinc [2*x] *Sinc [2*y]*Sinc[2*(-Pi + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 

(2.514992770602591213047642167502406166858292353509532220269790578601069\, 
336069977525820205797839979435288771300082088094086561033494374777'120.129684\ 
58381316 - 1.9756434115460185658268313542372696478594137621955922007157859233\ 
956262695410271624042046443332511739386096410235014925654343292'112.024856403\ 
3159%*-8+I)*Sinc[2*(-Pi + x)]*Sinc[2«*y]*Sinc[2*(-Pi + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 

(2.315024130210414398357549416437316520669031156087316405951247330904200\ 
973808333313545402570972955552055524082754112658191111739583673486 '120.143252\ 
05819516 + 0.2153371149001522694299161853446166305805814964094900102352006930\ 
40779831725331046909531348084378427447800370715095655066316856171519676‘119.1\ 
1181542608408*I) *Sinc[2*(-Pi/2 + x)]*Sinc[2*y]+*Sinc[2*(-Pi + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 

(2.333943929466167208047832749130888929830288521482310122954599756630127\ 
962703344814686557018738618679028680994679959466688129951364973471'120.144028\ 
62134754 + 0.2071226343747079462041114697136492311504889892861532451526275129\ 
485976292126569639380082050816104536005064657076182432675364467769446'119.092\ 
1657641939«1I) *Sinc[2*(Pi/2 + x)]*Sinc[2*y]*Sinc[2*(-Pi + z)]«* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 

(2..616958687575873496369178994304859718188572282925409218215463593540551\, 
192372584188556951803734500361817033102633682186212483373952280384'120.128181\ 
67701695 + 1.9537418426076987078168499662796227839978637427882586241821266627\ 
575750912416715669078628270108706904221203228291727127839471437'112.001251988\ 
01652**-8+I)*Sinc[2* (Pi + x)]*Sinc[2«*y]*Sinc[2*(-Pi + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 

(2.514992463462014509189782465368413975321450767544325795494020787772026\ 
176216005597375636729379704724186271767285481247972522789008814107'120.129684\ 
58393696 - 2.1642189655641438237124904733093142563840181755039001584976418608\ 
654738685944208820035803662127533650581110974203911730322416281'112.064449094\ 
5134**-8+1) *Sinc[2*x] *«Sinc[2*(-Pi + y)]*Sinc[2*(-Pi + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 

(3 .598733166956196148785791532804176846987108877773083433992619717713721\ 
484535609262544767547081742933 7155428161184 03338674669525923375718'119.870197\ 
88375302 - 2.8832826702358224181609009309036092156121142495058844873387121425\ 
203563411623787688884429080348796660783988151815857972628020862 '112.773935458\ 
95349%°-7%1I)*Sinc[2«(-Pi + x)]*Sinc[2*(-Pi + y)]*Sinc[2«*(-Pi + z)]«* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 

(0. 682641403312067512995718915906105567102468309835516238368960489132465\, 
859574300154606782958629430525326530571475531736902283363670413413'119.632869\ 
36944047 - 7.0553752211297390089709088835780406182613572561123834137377796843\ 
667267030507155824325419017044919009561415354849241060845621607'112.647196859\ 
51884**-8+I)*Sinc[2*(-Pi/2 + x)]*Sinc[2*(-Pi + y)]*Sinc[2*(-Pi + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 

(0. 736700388711129281805221075646099451166650747836537407062658489955166\, 
738723899598054312137090375940431059501091430872648765091800924369'119.664051\ 
308275 + 6.415114271426936138111513494251117020413992926314238336866919158465\ 
9523821090637722926151708554040353913370116747424367563636272'112.60396480606\ 
93%°-8+1)*Sinc([2*(Pi/2 + x)]*Sinc[2*(-Pi + y)]*Sinc[2«*(-Pi + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 

(4.155891533038719504533364534161511107651472337799854191333331524802558\, 
83154531071925318994812924814193513675758989971951443523428597499 ‘119 .9086973\ 
060922 + 1.082894273754902978293175452534431821320313151612838735171055710302\ 
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90620439156402912848247669378266315006297893911445421529245585 ‘\112.3246191591\ 
6672**-7+1)*Sinc[2*(Pi + x)]*Sinc[2*(-Pi + y)]*Sinc[2«*(-Pi + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 

(0.186345430030421377379454432687726150536254238252313774885458470714963\, 
530349882406205775474991450407045691065387957902289915540335000425'119.682905\ 
96434494 + 0.2153371404128853556041187809035974206797344888581775524251096148\ 
98578750004504259297044859662262939935550662544727887923852602239130655'119.7\ 
4570615934837«1) *Sinc [2*x] *Sinc[2*(-Pi/2 + y)]*Sinc[2«*(-Pi + z)]«* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 

(0. 682641332959417589407705791482259697010123863483856133148824247323205\, 
133330925680406946023878782716733982984646807424540945579718614965'119 .632869\ 
3379326 - 6.47446271179331981225071786967885940117644058459362101487904897840\ 
94289900670052269865946344670198953779124115753301955497094491'112.6098804912\ 
733%*-8%1) *Sinc[2*(-Pi + x)]*Sinc[2*(-Pi/2 + y)]*Sinc[2*(-Pi + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 

(0.470653533650652670380106801175908891513708345790215172082281896393638\, 
073142758146920049640819756610116924339109856701996507092626261419'119.836765\ 
54087383 - 2.9046614189682310292788800895903365269900729718086092870252173343\ 
805930811977175921314327949246983574171074236590879470097695573 112 .627159733\ 
43327«*-8%I) *Sinc[2«*(-Pi/2 + x)]*Sinc[2*(-Pi/2 + y)]*Sinc[2«*(-Pi + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 

(0.483477281334435701850746155138416615477192730822321920628195895070436\, 
822494947926866055034007497581643688796150998391626484453675003369'119.881008\ 
49505713 - 0.0072644623277376078349572566454332914866994296077970667226541820\ 
10413882458725505116350233021334831364743426201582700923213615411951061'118.0\ 
5783589964851) *Sinc[2*(Pi/2 + x)]*Sinc[2*(-Pi/2 + y)]*Sinc[2*(-Pi + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 

(0. 830875018431689838830003522002302259939523208933305434659214915687577\, 
057525593475385209181489112991366590781117712323181957217500331576'119.716368\ 
562424 - 0.026588696575716916227104192006304413815801425783339533745280833469\ 
758013250524266238847482617540123191328199642011622941186043809850756'118.221\ 
52990898841) *Sinc[2* (Pi + x)]*Sinc[2*(-Pi/2 + y)]*Sinc[2«*(-Pi + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 

(0.217460204348103908448457038966734231977794879267104659974711571144810\, 
410439309949493983360390632916992275073718330886918541917921480396'119.742274\ 
75782811 + 0.2071226088763672996441065770363727172851530955176172271078166921\ 
27699067988594737249028765767732415579650355807220177235650873056479703'119.7\ 
2112247377473*1) *Sinc [2*x] *Sinc[2*(Pi/2 + y)]*Sinc[2*(-Pi + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 

(0. 736700672588127350340283915186928386995342395439435085784284599204326\, 
655134531566276047383998297028925452004644948897810063817409971267'119.664051\ 
49753737 + 5.8796688083633054532468347837145720120869613169304660553650100027\ 
920467976781680145372408350880726879354593059371831067650659791 112 .566113294\ 
88646x*-8x1I)*Sinc[2«*(-Pi + x)]*Sinc[2«*(Pi/2 + y)]*Sinc[2*(-Pi + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 

(0.439746375450263949128819909943769194374447091415591931055707875053049\, 
936363734961598055976526167269939488384133989193546701586880490972'119.842093\ 
90012279 + 0.0072644681608982709511687003117786234388859554075891996163887926\ 
3559871141229688922342398105248989879688578599439040997260207887744769'118.06\ 
009545624899«1) xSinc[2*(-Pi/2 + x)]*Sinc[2«*(Pi/2 + y)]*Sinc[2*(-Pi + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 

(0.462411644513313498189622512243714280454369619115994609810973614306506\, 
774630683939550862146050742336257220810700917954822978218832880369'119.820559\ 
71756414 + 2.3587479132972286885115807745368835426132206873211796720603056550\ 
243088254483721062641688030002254527941480967315500661982505728 ‘112 .528212484\ 
51872«*-8*I)*Sinc[2«*(Pi/2 + x)]*Sinc([2«*(Pi/2 + y)]*Sinc[2*(-Pi + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 

(0.607407909139537285597616535509796842702237674396025478270538596224070\, 
593621661089513532783416064598177978971991793816806164985112532451'119.593650\ 
2926703 + 0.02658870169636713259765964821793440826035069833594056706836026414\ 
7715508772886199905370836183664477112312166192105144060283205248317908'118.23\ 
4866981664811) *Sinc[2*(Pi + x)]*Sinc[2*(Pi/2 + y)]*Sinc[2*(-Pi + z)]« 

Sinc[Sqrt [13] *Log[t/(1.**-6 - t)]] + 

(2.616959006665622866758260905702453040421796353870206287866758772271406\, 
308056924881174223521153824033133625167775353706024451923903460344'120.128181\ 
67804149 + 1.7651668151196003283655327602395769791951380516877882436227640222\ 
443307444557521473431173133633030216461757227946680639483211375‘111.957170512\ 
52949%*-8xI)*Sinc[2*x] *Sinc[2* (Pi + y)]*Sinc[2*(-Pi + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 

(4.155894402748175254365267433201401544495957075449112974389359477866556\, 
195129040489583574539919316563727918363697795354761122376797076844'119.908697\ 
4667658 + 1.08289451978954695308519421036875386548709551584810978823333373854\ 
297412978954414507324402277328861238586391358469191143192296429'112.324619118\ 
6253%*-7*I)*Sinc[2«(-Pi + x)]*Sinc[2*(Pi + y)]*Sinc[2*(-Pi + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 

(0.607408432493629431422665324441148457951571877928733686438894732174681\, 
277789156267994807263399437037572664001303821525636295520945310715'119.593650\ 
68507867 + 0.0265886003885527460176808097790766614770371170161720400734156118\ 
96629404723685153191981651448959039273304123434558462657159734591297044‘118.2\ 
3486534513252*1) *Sinc[2*(-Pi/2 + x)]*Sinc[2*(Pi + y)]*Sinc[2*(-Pi + z)]+* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 

(0.830874647101472530157304493402798766529484337828001050354686373744986\, 
212662426660939461443831227319180551699347237778929837949580800307'119.716368\ 
41544728 - 0.0265885957225708359952876071808716906514354571958304234778898869\ 
56563092179501920594846372170061081248646442864986726049183032804732645‘118.2\ 
2152830878554%1)*Sinc[2*(Pi/2 + x)]*Sinc[2«*(Pi + y)]*Sinc[2«*(-Pi + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 

(4.155892793619350984549475403470079382986941082011738666207670240016353\, 
768528428384 756650043659940543896172978608838172637143909976659012'119.908697\ 
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37601399 + 7.9144908976995918819923465378580585913855885388736101957725855555\ 
188712882380614366207770400390563300666260596857455248480475111'112.188456024\ 
10379x*-84I)*Sinc[2* (Pi + x)]*Sinc[2*(Pi + y)]+*Sinc[2*(-Pi + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 

(0.444711589815576848159246592410874549801547171140954525412239695779323\, 
15797900813063922433934272590187882865770825663806573689224315803'120.1505095\ 
0257393 + 1.71705665286224149350254520937724799283906029602920777039629654761\ 
772530009086881204857810707562172235035267952685588319844931 ‘110. 737215679230\ 
64%*-10«1) *Sinc [2*x] *Sinc[2*y]*Sinc[2*(-Pi/2 + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 

(0.186345529801836894354764952243009411120789266730878053061115723269774\, 
633517254278569534492790445027078675909532845416895331701236639553'119.682906\ 
17827542 + 0.2153371128561362756426143648313586913554803336533933899903955092\ 
44626199705396459069064703631051943293935972247097845678398885992024303'119.7\ 
4570608517605*I) *Sinc [2*(-Pi + x)]*Sinc[2*y]*Sinc[2*(-Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 

(0.166354278336121370477250000124783223258243090951578380699856048571254\, 
288782015561751555406697768687459758459867533891069760067796630811'119.931437\ 
43623116 + 4.1401253159292790660175885938002710596516710769838558293840480405\ 
2687133821292900859594605292098331114186049280276903906354287'111.32741694842\ 
083%*-10%1)*Sinc[2*(-Pi/2 + x)]*Sinc[2*y] *Sinc[2*(-Pi/2 + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 

(0.168480020840659991230818562279460011457585360701174346086955790089361\, 
249806316000003078234796966901389456681362994881766536102077201148'119.958710\ 
03064028 - 1.1294265848447906383234031663507504593529844920740995427357339224\ 
3641781607829028882509114820016824703540400971810745340831406'110.78501962917\ 
666**-10*I) *Sinc[2+*(Pi/2 + x)]*Sinc[2*y] *Sinc[2*(-Pi/2 + z)]+* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 

(0.217460075863427705915244714802519132392405877930647078946319271263754\, 
428609906489392765339771234664874641104586788255178782831305911697'119.742274\ 
48839693 + 0.2071226377057788283060924590008415601677510468894993031726830283\ 
25478822899844674474606576228094919610846079595162355057782047868415461'119.7\ 
2112252139263+1I)*Sinc([2«(Pi + x)]*Sinc[2*y]*Sinc[2«(-Pi/2 + z)]«* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 

(2.315024002545426931406617325490153260567416255352484504102504705420629\, 
468814495687244750583719739630319743576080655662791095137534739881 '120.143252\ 
0558098 + 0.21533714389302342307713380171998519815414961525446780050564577341\ 
3062741450965182034565667623200929416779406042044407413298261070127252'119.11\ 
181550612164«1) «Sinc[2+*x] *Sinc[2*(-Pi + y)]*Sinc[2«*(-Pi/2 + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 

(0. 682640657339709975523164685472756585202593894785163399448393046466619\, 
032772257719558499344990522534057177294702648211299024915858017751'119.632868\ 
95198813 + 7.6240920518351429962722674935851817207542645591396654289350417983\ 
341638961528690856806143717711191879316742101693178751815035381 ‘112 .680864932\ 
41604«*-8xI)*Sinc[2*(-Pi + x)]*Sinc[2«(-Pi + y)]*Sinc[2«(-Pi/2 + z)]«* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 

(0.470653440452016068977068396822410675277410957130960891590531447510996\, 
200884670566673944040186204345834705010594189628543585056135728932'119.836765\ 
55644487 + 8.9016567313902502289220751273711583831310112850840622856122824826\ 
76339782496405869988804933157184979178471669519226695017737228 ‘112.1135351616\ 
0229%*-94I) *Sinc[2*(-Pi/2 + x)]*Sinc[2«(-Pi + y)]*Sinc[2«(-Pi/2 + z)]« 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 

(0.439746288549005943087993277654273838942709188055488823697119267674284\, 
552678261658506683797508693571100221687119243285897002295241502637'119.842093\ 
68076272 + 0.0072644831054140372902296988143897022431364303558146793793089603\ 
3305474962706807112641582838007449187349805856776837908086017930636438'118.06\ 
009621614555+1) *Sinc[2*(Pi/2 + x)]*Sinc[2*(-Pi + y)]*Sinc[2*(-Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 

(0. 607408102635913561019904155000688758048037907003869571524046066706061\, 
264314955165196239831829604495516309517060376639224869042050587111'119.593650\ 
41999507 + 0.0265886543632890946513179015541362199041493127420624727139800692\ 
71863973847099489276679137458213496589038943082154284804695725574024726'118.2\ 
3486619751075*1) *Sinc[2* (Pi + x)]*Sinc[2«*(-Pi + y)]*Sinc[2«*(-Pi/2 + z)]«* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 

(0.166354317103694134822647486922034435013777079867281179398027604268191\, 
935345274478425008439310351495927836820829985762376276423301418899'119.931437\ 
38438395 + 4.7407366395318616861351692844756264500815621587003817851201798828\ 
4648271416327845368688333407082770562553445060087136510334253'111.38624913832\ 
611**-10«1) *Sinc[2*x] *Sinc[2*(-Pi/2 + y)]*Sinc[2*(-Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 

(0.470653378906804229932341885082355951937650153389487410906913220674033\, 
397253906100767634796254342786029486495757316491407928462485423271'119.836765\ 
30514458 + 1.1398428331173706066545209617268265892034502620754259464658320727\ 
291221631933861498174043823903781338844955673619480007348421691'112.220909097\ 
1316%*-8%I)*Sinc[2*(-Pi + x)]*Sinc[2*(-Pi/2 + y)]*Sinc[2*(-Pi/2 + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 

(0. 052028053311474566810586275104781169509219965359300127537480576793568\, 
966108062035030989145416523888786864423193442630743117526136466813'119.343605\ 
20350057 - 7.8159547566712162084020527946055687852237339693288058478547659349\ 
36449723378314448148130180231592187057972941763630188209645976 ‘112 .5203496636\ 
8723**-9*I) *Sinc[2*(-Pi/2 + x)]*Sinc[2*(-Pi/2 + y)]*Sinc[2*(-Pi/2 + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 

(0.105614321157364316567935523939442567694783166190672706309507629710081\, 
251425229967088597143185565654719614990621640938802987126052663236'119.669116\ 
7951111 + 2.37026835237856317763039571876586495268354453772601817817339963415\ 
9006334576820676857206815998476625551991883852050056979857144 '112.02019150107\ 
486%*-9x1)*Sinc[2*(Pi/2 + x)]*Sinc[2*(-Pi/2 + y)]*Sinc[2*(-Pi/2 + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 

(0.462411703561885916526213717481643785207345895065090286964996524025626\, 
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336902346236688809733441935307531595673452437934500403871027174795'119.820559\ 
69057902 - 1.7283260207088112744910563748039096077316218481266037960864375496\ 
463789556072832506290932570029327169169461591443774864654527291 112 .393156541\ 
59762**-8%1I)*Sinc[2*(Pi + x)]*Sinc[2«*(-Pi/2 + y)]*Sinc[2*(-Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 

(0.168479969850297911902446746019688383663196878071597619412457595528650\, 
822165634080232239644130086680510467477062975896938672659659511414'119.958710\ 
05567344 - 5.2881852040173933122611642155052636051340160199425798369405163327\ 
523714872546011070805393397514221423048250204874887540670701 ‘110. 455468436252\ 
99**-11%1I) *«Sinc[2*x]*Sinc[2*(Pi/2 + y)]+*Sinc[2«*(-Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 

(0.483477241598778369057128881020877079641295343427682147311737012695753\, 
520089261570567654958943369531806426877780183639759134858709289916'119.881008\ 
55730315 - 0.0072644528654405928721241301541129021227342428972840868618427477\ 
12714241134115218158046470935709552967686363326241075469101692889144939'118.0\ 
5783543189902*I) *Sinc[2*(-Pi + x)]*Sinc[2*(Pi/2 + y)]*Sinc[2*(-Pi/2 + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 

(0.105614383703684988600632946061867699406686525645936908508385505494922\, 
376519769801698092349977197941746890554601864647918186175446956392'119.669117\ 
02777567 + 2.3702690402269202616768832910717089930111890709407162543114754849\ 
33772177260645194397142617753544884299705434851827698075593053'112.0201916025\ 
7566%~-9*1)*Sinc[2*(-Pi/2 + x)]*Sinc[2«*(Pi/2 + y)]*Sinc[2*(-Pi/2 + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 

(0.105614350955672048168028996749833892732345004779439359289540402272413\, 
171427893458366027925992995138117269407582839002151530921081806841'119.669116\ 
89412986 + 2.1235645285526288794270229342739047312906195898578531567428994269\ 
56663916662369565485593617155457192765613586265041065147549509\111.9724594220\ 
6102%*-9«I) *Sinc[2*(Pi/2 + x)]*Sinc[2*(Pi/2 + y)]*Sinc[2«#(-Pi/2 + z)]« 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 

(0.439746397884507197962987885721209309001497552949002228588469553994488\, 
781936423598012729003997642823352268514399930715940041851610776146'119.842093\ 
98619753 + 0.0072644574442129343677254410653926616269336802553221505125241776\ 
29555923834983321347037751349483574183102077128924140598346415749722799'118.0\ 
600948794874141) *Sinc[2* (Pi + x)]*Sinc[2*(Pi/2 + y)]*Sinc[2«(-Pi/2 + z)]« 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 

(2.333944028826902992118174496555492670001495726791866518676132099153866\, 
696526295378418510956454129787381418959449528373898158403696223073'120.144028\ 
6230966 + 0.20712260698141809115598966147510218021077267186755982614278867751\ 
2177397273686266519375834004515450697668436385134934000882410650925428'119.09\ 
216569001593«1) *Sinc [2«*x]*Sinc[2*(Pi + y)]«*Sinc[2*(-Pi/2 + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 

(0.830874986949166829779255799413684748364337699802010976823374140504033\, 
354670241210228912094873731969238762013638086901912529428317656222'119.716368\ 
57352799 - 0.0265886372465210662808836583598034594056796844096740642384647611\ 
94481028936982482012412992777976910449011218701748532631343283374880807'118.2\ 
215289674754«1) *Sinc[2*(-Pi + x)]*Sinc[2*(Pi + y)]*Sinc[2*(-Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 

(0.462411745133724980535630651071788915183065298346502219216916590974096\, 
60438202377995903107381060484369511799252868639113369681577405086 119 .8205599\ 
0885331 - 1.18010404200849025172713179671774786351314250849375515154894921533\ 
83664215509767239776996838752483389363565855587964032250601938'112.2274513502\ 
1887%*-8%1)*Sinc[2*(-Pi/2 + x)]*Sinc[2«*(Pi + y)]+*Sinc[2«*(-Pi/2 + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 

(0.483477287354056611200469682514631772524528266821862073992255258273301\, 
88326524569394776416821427927956933665267635371769490701167009009'119.8810084\ 
1181648 - 0.00726447554119502594631706384493307046592436949491002914882595171\ 
9627233375214477762765838768297921276966146539714736035959542672180715'118.05\ 
7836600945691) *Sinc[2*(Pi/2 + x)]*Sinc[2*(Pi + y)]*Sinc[2*(-Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 

(0. 736701210123267150001633158941264518134051225971245712423114259923237\ 
056852138914364558969090259788733370145288766624664266832704547488'119.664051\ 
78552608 - 8.9811449254939890218206147399497017114110937888503713287692252969\ 
4685761131627053114957436078170312621642079696864 9586376501051 ‘112.7500921067\ 
87**-8%I) *Sinc[2* (Pi + x)]*Sinc[2*(Pi + y)]*Sinc[2*(-Pi/2 + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 

(0.444711589815576861461373619808411962831140677422627472091335623652035\, 
711875034294929851248180822203323578518576694680575530683976007813'120.150509\ 
50257393 + 1.7170566505763841358998694621389831046488724825351223628350484758\ 
806882418293760553648638879069264722267346181196030120500608 ‘110. 737215678652\ 
48**-10*1I) *Sinc[2*x]*Sinc[2*y] *Sinc[2*(Pi/2 + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 

(0.217460075863427744408078633245011878212488850264062969755567879392437\, 
829620222559222951997369839302643147577055424631449290363819281994'119.742274\ 
48839693 + 0.2071226377057788060543736092636789690933291706580051742837734640\ 
31544204583480330085243746952366661591509093482883668634943667066375829'119.7\ 
2112252139263«1)*Sinc[2*(-Pi + x)]*Sinc[2s*y]*Sinc[2«*(Pi/2 + z)]* 

Sinc[Sqrt [13] *Log[t/(1.**-6 - t)]] + 

(0. 168480020840660006421625742466618307930039485624237323969341646164294\, 
135743348142991067616175311861452875234248986150311240641457512324'119.958710\ 
0306403 - 1.12942607464142280502703130554615890080599992244144332517341728603\ 
21114269425813968110635073248261168343468219880930560308502'110.78501943298991\ 
«**-10«1I) *Sinc[2*(-Pi/2 + x)]*Sinc[2*y]*Sinc[2«(Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 

(0.166354278336121315743738084010266471729793658438596036184005459827761\, 
560052561381511278890045926428664437301607285583650676501384436195'119.931437\ 
43623116 + 4.1401248872767830384948565746928841011709631918140703763030366916\ 
7748345649258556253367124438277483585487160967789584020386754 '111.32741690345\ 
567**-10%1I)*Sinc[2«*(Pi/2 + x)]*Sinc[2*y]*Sinc[2«*(Pi/2 + z)]«* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 
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(0.186345529801836914209798517542216595979202551871049864719180953021686\, 
997135295317126329171564046883993112874276208653830883470008690951'119.682906\ 
17827543 + 0.2153371128561363932927447455457216075135313655104256504429044216\ 
08389922193816703680750077732838014125241707521894500815088321953493644'119.7\ 
4570608517607*I) *Sinc[2* (Pi + x)]*Sinc[2*y]*Sinc[2«(Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 

(2.333944028826903000783449136750695711501220508739714067945089033957501\, 
469824127391701267074911113938961250340202811626188258521466468391'120.144028\ 
6230966 + 0.20712260698141807044836487617321448338050867672085149822752380524\ 
7926060092199856074106302458421499460273015521708657706424249105264632'119.09\ 
216569001593«1) *Sinc [2«*x]*Sinc[2*(-Pi + y)]*Sinc[2«*(Pi/2 + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 

(0. 736701210123267506462639762809867792743104713463667200789086584550824\, 
854481807753881685518359384759001375707499648211443180639144214584'119.664051\ 
78552607 - 8.9811449058943125506567979036046757108282865845795741527656407521\ 
740710482716840811495502001271190753508762114060274193201184759'112.750092105\ 
83922«*-8%I) *Sinc[2«*(-Pi + x)]*Sinc[2«*(-Pi + y)]*Sinc[2«*(Pi/2 + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 

(0.483477287354056510622914411275430868012249265166666250191574696907993\, 
877806337000129891431937133238036813977336458337801290044316257976'119.881008\ 
41181648 - 0.0072644755411949605736600129894126583116496041394324166848664957\ 
63614869253711675186083218948489722506007819314824113360554188132382272'118.0\ 
5783660094569«1) *Sinc[2*(-Pi/2 + x)]*Sinc[2«*(-Pi + y)]*Sinc[2*(Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 

(0.462411745133724760399940626371700670102628916067166461255675395236946\, 
704363422560475356195250243731707444780512576875340187224620896708'119.820559\ 
90885328 - 1.1801040547405829552116564524092113791774508560203680167510718440\ 
925418866836224748163390809657042687130205891156658619589976412'112.227451354\ 
90442«*-8x1I)*Sinc[2«*(Pi/2 + x)]*Sinc[2*(-Pi + y)]*Sinc[2*(Pi/2 + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 

(0.830874986949166800598906754806089124590435501102900969419597306431822\ 
163781153578198840016168552820817275078311456068271323334811942316'119.716368\ 
57352799 - 0.0265886372465212305869592567407957905776030813447360512185286596\ 
65263594015446763800755911337590358613989145788940076023432938207698602'118.2\ 
2152896747544*1)*Sinc[2*(Pi + x)]*Sinc[2*(-Pi + y)]*Sinc[2*(Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 

(0.168479969850297856992366401160678947382791680276576276323699177550190\, 
442804616572173820995240154575791451248516890676951162983751219692'119.958710\ 
05567344 - 5.2881844539548931107164558077698855076434404857666384180271613934\ 
904702240347637036091069687763526721081841675617755659823492 ‘110. 455468374653\ 
78%*-11*1) *Sinc [2*x] *Sinc[2*(-Pi/2 + y)]*Sinc[2«*(Pi/2 + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 

(0.439746397884507142870125882105946106686357174771257238282646878244323\, 
875152132725735349053783655114469838830906811229302249493674569731'119.842093\ 
98619753 + 0.0072644574442129637319754413812723913955375206358503457507186014\ 
81926073964179721701285131435333733795095023801676362616208388664540487'118.0\ 
6009487948741*I) *Sinc[2*(-Pi + x)]*Sinc[2*(-Pi/2 + y)]*Sinc[2*(Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 

(0.105614350955672136812667024464039300372184493154978513846831850829150\ 
700344216154101851118340394253423395559162955276261720814299866669'119.669116\ 
89412986 + 2.1235645413519043895078428954642156142623782039752715893162846636\ 
51334643832664303946270033433370674697530089100995716873359509'111.9724594246\ 
7859%*-9xI)*Sinc[2«*(-Pi/2 + x)]*Sinc[2«(-Pi/2 + y)]*Sinc[2«(Pi/2 + z)l* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 

(0.105614383703684938021638913881421154080551771811062306043955292856291\, 
677775619735471245186579474223346888634563953788942327246646694762'119.669117\ 
02777567 + 2.3702689915991533369814839139760292511235527175983987030217112635\ 
21875695095848490875568229170438936165374996948007894738012375 ‘112 .0201915936\ 
658**-9+I) *Sinc[2*(Pi/2 + x)]*Sinc[2*(-Pi/2 + y)]*Sinc[2«*(Pi/2 + z)]+* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 

(0.483477241598778280653675790251519410363625227211449680281172068548873\, 
242178255743002101644474498184637487228593358273539635518331701837'119.881008\ 
55730318 - 0.0072644528654404928690686740354874476944693401971995935309256113\ 
75685102154925413607917144773142546093123020936754601227199065529503865‘'118.0\ 
5783543189905«I) *Sinc[2* (Pi + x)]*Sinc[2*(-Pi/2 + y)]*Sinc[2«(Pi/2 + z)]«* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 

(0.166354317103694116306568451858653295033073734855950804080168905874898\, 
753894612536501004466405284303440689676635163828977168370850266874'119.931437\ 
38438394 + 4.7407367592098846435033676906480729430821881481375006032030917444\ 
1872778375078892870482596873051689456751262473751916720821929'111.38624914928\ 
967**-10«1) *Sinc[2*x] *Sinc[2*(Pi/2 + y)]*Sinc[2«*(Pi/2 + z)]«* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 

(0.462411703561886137867232371721686372188606367862897246177534073276614\, 
087809553602572052684567260271461456731805787625667241305936637957'119.820559\ 
69057902 - 1.7283260216484495893596702617487144372041523389028814786762728404\ 
041958883685380121501660094056153638097600418668570179416935206'112.393156541\ 
83375«*-8x1)*Sinc[2«*(-Pi + x)]*Sinc[2«(Pi/2 + y)]*Sinc[2*(Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 

(0.105614321157364393496273920134726784102597266276644949401494461826930\, 
217780092242174956519530051932147534911385472911755024610540881918'119.669116\ 
7951111 + 2.37026842422576642064321339916854532246605193802613281277286507357\ 
6729269190944571971745140590781653956403665483710561216601887'112.02019151423\ 
913%*-9x1) *Sinc[2*(-Pi/2 + x)]*Sinc[2«*(Pi/2 + y)]*Sinc[2*(Pi/2 + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 

(0. 052028053311474515712201412491267991596247626746443766333502918909497\, 
529713390570260913214294527813152850838168225335358595878130994509'119.343605\ 
20350057 - 7.8159547545266329817112519077446032374387044899976953491167973652\ 
26965190087765486303814956166851906204048880574131729353956579 ‘112 .5203496635\ 
6806**-9xI) *Sinc[2*(Pi/2 + x)]*Sinc[2*(Pi/2 + y)]*Sinc[2*(Pi/2 + z)]* 
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Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 

(0.470653378906804406244038926893526871510745748079655712174393448424126\ 
183316812061646995636154274186379012187311854095317839267035202507'119.836765\ 
30514455 + 1.1398428318440898387245599580038067838478343944050538672712429517\ 
594338924531187609772223383581388784941319247079412464953021759'112.220909096\ 
64644%*-841) *Sinc[2* (Pi + x)]*Sinc[2*(Pi/2 + y)]*Sinc[2*(Pi/2 + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 

(2.315024002545426827407008966129703497183315040609059133212066689960954\, 
637577750664787407989400040962573150449391614861494389313966833454'120.143252\ 
0558098 + 0.21533714389302343455010375613887727520876189018474149940524960920\ 
4090254268675109923181103971717420935543911356049197665948228604745802'119.11\ 
181550612164«1) *«Sinc[2*x]*Sinc[2«* (Pi + y)]*Sinc[2«*(Pi/2 + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 

(0. 607408102635913013538364227079827874176622926545518378369803224947635\, 
906969253773908715339554607945924752566266780499486895837195480036'119.593650\ 
41999507 + 0.0265886543632892592512512286328877018796846512513642930400795046\ 
70411485639482050543980693045559296418125430848159496170030758293394687'118.2\ 
3486619751075%1) *Sinc[2*(-Pi + x)]*Sinc[2«*(Pi + y)]*Sinc[2«*(Pi/2 + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 

(0.439746288549005852571375338846525027078405278135852751252205140388666\, 
740852706776554534100776937497295854974239178302595739826823465822'119.842093\ 
6807627 + 0.00726448310541417660719604159670488033497780871643268171919418625\ 
1519740094258154539524123459722579455435036981139901347478425721180419'118.06\ 
009621614555+1) *Sinc[2*(-Pi/2 + x)]*Sinc[2*(Pi + y)]*Sinc[2*(Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 

(0.470653440452015856699131105807328797189388938724608348085515854486128\, 
282606437425020391607986510062044172322018042778090053520847620565'119.836765\ 
55644492 + 8.9016566330389728964523304627317355767346705016016038402021217313\ 
03701116351846208941976157369194064813498852763142006381561467'112.1135351568\ 
0396%*-94I) *Sinc[2*(Pi/2 + x)]*Sinc[2*(Pi + y)]*Sinc[2*(Pi/2 + z)]«* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 

(0. 682640657339709205253634185809044372336352870465640673314048126009945\, 
214705429523752825861363543625886919575712365623669992659716620749'119.632868\ 
95198812 + 7.6240920391414801620761477693470500614603151121214408161081881267\ 
489980152336244621040708629249701059811135435650652336043011164'112.680864931\ 
69295**-8x1I)*Sinc[2*(Pi + x)]*Sinc[2«*(Pi + y)]*Sinc[2«*(Pi/2 + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 

(0.129838050405470017656426486852617227888689547928641248885384484667447\, 
096450112766350042559188659747453270006401034180300652618385551633 '120.147660\ 
58893777 - 1.2072792732375559703941528950890030263755145511089144115287293183\ 
276952014957032699063517027511160550375861874786496714471167'111.116066347916\ 
76%*-10«1) *Sinc [2*x] *Sinc[2*y]*Sinc[2* (Pi + z)]« 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 

(2..616958687575873950889615513827947770317424196182611745857190015438453\, 
162891923971167360207361676250845975215848676659883679323775258509'120.128181\ 
67701693 + 1.9537418376594625095002730399721969378286853065853878283719022126\ 
889997913172097567461550313480010946249169026865760143396733441'112.001251986\ 
91657x*-8+#I) *Sinc[2*(-Pi + x)]*Sinc[2*y]*Sinc[2«*(Pi + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 

(2.333943929466167113827003702504444900687511586360788763305692648709932\, 
574929388611538747317045495471755140498673541759345500010388187661'120.144028\ 
62134754 + 0.2071226343747079930089023476536321384275553865028563406410778564\ 
85874234238209690302584820817489565113667926120792632945085964463302863'119.0\ 
921657641939«1) xSinc[2«*(-Pi/2 + x)]*Sinc[2«*y]*Sinc[2*(Pi + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 

(2.315024130210414581328415796727120318572064475688327224466294000344620\, 
842246995672836979577145048421598578697080693 7478384 7185326460232 '120.1432520\ 
5819516 + 0.21533711490015228070030766295802498074157200899255026966613369848\ 
3940689289606800036350336550020424489039193394831708253006786417069623'119.11\ 
181542608408+1) *Sinc[2*(Pi/2 + x)]*Sinc[2*y]*Sinc[2*(Pi + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 

(2.514992770602590699642168819095970785756413592414296631980339197445531\, 
289557438860493037376800514139021101747980229986747931465588423393'120.129684\ 
58381316 - 1.9756434001972961397062182185067875020598683435339926189979514170\ 
78300757915696829635960173633677814708728657458761709411943395 ‘112 .0248564008\ 
2115**-8+I)*Sinc([2*(Pi + x)]*Sinc[2*y]*Sinc[2« (Pi + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 

(2.616959006665623125443746025149835192456135859139120576349363852301954\, 
300389724191986462346595506701555772786805274829329316832158943579'120.128181\ 
67804149 + 1.7651668201787382345351875569393339534425456568677524163291121857\ 
463626248069131123862668206830140812540444444397999537458142977'111.957170513\ 
77422**-8xI) «Sinc [2*x]*Sinc[2*(-Pi + y)]*Sinc[2*(Pi + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 

(4.155892793619351070416956085216139985328007685431076280056237621838821\, 
632774894606611107713018529699094028444760356015999244737639090728'119.908697\ 
376014 + 7.914490920898847683028410075036153244221114287727330895021802248531\ 
0139904266952092665251856966049211077798536181334731000113078'112.18845602537\ 
682%*-8%1)*Sinc[2*(-Pi + x)]*Sinc[2*(-Pi + y)]*Sinc[2*(Pi + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] - 

(0.830874647101472820355114029255306853196337112116592068754799539192247\, 
005554905922091497054251080154904347531755516887549710266835163535'119.716368\ 
41544723 - 0.0265885957225709145179564080547715417054250304355842462737291715\ 
04008670614110814245968723747246018017611476103797096764331414403082893'118.2\ 
2152830878552«1) *Sinc[2*(-Pi/2 + x)]*Sinc[2«*(-Pi + y)]*Sinc[2*(Pi + z)]«* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 

(0.607408432493629486846238837392269648140133983359586683136250578174669\, 
523918855512492933635098810261004265250058776550164132410743000185'119.593650\ 
68507867 + 0.0265886003885530582516169377646855775972983965684669527856174635\ 
77947151429021333741023399719094145683095334188251570328206561421252472'118.2\ 


177 


178 


3486534513252«1)*Sinc[2*(Pi/2 + x)]*Sinc[2«*(-Pi + y)]*Sinc([2*(Pi + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 

(4.155894402748174765842987807781832473398246926763583561172154861941024\, 
9325964980745320064645082875053444944500178480648262520219144706'119. 90869746\ 
67658 + 1.0828945191398611117849763344077007432696639601222890496415704694611\ 
0769993666785425934193896784053370346667456136929546952958237'112.32461911836\ 
474«°-7+1I)*Sinc[2*(Pi + x)]*Sinc[2«*(-Pi + y)]*Sinc[2*(Pi + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 

(0.217460204348103985053744001800339979825380329307649526752696150840298\, 
303689879577740162794577481259777021489144132345216298160112460475'119.742274\ 
7578281 + 0.20712260887636725111937538513558336943298269995545080534817449968\ 
3153511579094825535231200507133669720301153389608444979832320503014867'119.72\ 
112247377471«1) *Sinc [2*x] *Sinc[2*(-Pi/2 + y)]*Sinc[2*(Pi + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 

(0.607407909139537104883196047580778171915116282689220855212082525491710\ 
531272690059795515904532662065658151549091898276777388790165101432'119.593650\ 
29267032 + 0.0265887016963670148031947973348489075650263509943221702562348085\ 
55335198891006000185148769416450669415143879458183392561344819021353384'118.2\ 
3486698166484%1) *Sinc[2*(-Pi + x)]*Sinc[2«*(-Pi/2 + y)]*Sinc[2*(Pi + z)]« 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 

(0.462411644513313721026531803430703120206347051681502599756741745485023\, 
019634179429149217350764315833196477914877066554730156842490671174'119.820559\ 
71756412 + 2.3587479181533390559997930337866585742861882998489999148926136994\ 
391563709959092118671300132255322085680858040501941366198286658'112.528212485\ 
41281**-8+I)*Sinc[2*(-Pi/2 + x)]*Sinc[2*(-Pi/2 + y)]*Sinc[2*(Pi + z)]«* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 

(0.439746375450264115338343174607973135828342828524930220549031377889950\, 
05866403161282506529105462557755661081567441809489167294396557084 ‘119 .8420939\ 
0012279 + 0.00726446816089818909034895704541690624681657159181402989493231234\ 
1166267893132049987328241904843115503666921745594566325752717371880428'118.06\ 
009545624897«1) xSinc[2*(Pi/2 + x)]*Sinc[2«*(-Pi/2 + y)]*Sinc[2*(Pi + z)]«* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 

(0. 736700672588127249503517994027228620456188864527363544694014969608921\, 
24987740844569729695687759607053016944843621561516225219418448666 ‘119 .6640514\ 
9753737 + 5.87966879561905394115978587935299077001160990426776397822878893310\ 
13408069944578178122447370915599246558662046772597895334583841 ‘112 .5661132939\ 
4514**-84I)#Sinc[2* (Pi + x)]*Sinc[2*(-Pi/2 + y)]*Sinc[2*(Pi + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 

(0.186345430030421325910129167939372967060612168472808284745714805264164\, 
752402065468700172518420958856172890358511756209823072432499285378'119.682905\ 
96434494 + 0.2153371404128853722222995761117974808391529698051677662109456636\ 
71042110544444829669354932363342940943128908096345711892244963006277986'119.7\ 
4570615934837«1) *Sinc [2*x] *Sinc[2*(Pi/2 + y)]*Sinc[2«(Pi + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 

(0. 830875018431690201776175719044535720243946474101375771141614766943165\, 
445474927527387227779524781756797190865267855103107949322483502533'119.716368\ 
56242401 - 0.0265886965757168410534154260792502050446198332497612825190107717\ 
15922401665941284477237379954245932121846633968874627283561080373702017'118.2\ 
2152990898802*1)*Sinc[2*(-Pi + x)]*Sinc[2«*(Pi/2 + y)]*Sinc[2*(Pi + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 

(0.483477281334435597975535557551235061164834221310650238109282385413512\ 
92903464810746981252568691900090647387226008074251873920480674097'119.8810084\ 
9505713 - 0.00726446232773754729576968754974220453472848934862534779848387720\ 
1268209658208854975281097142516252259056043312834921166158278064796377'118.05\ 
783589964851) *Sinc[2*(-Pi/2 + x)]*Sinc[2«*(Pi/2 + y)]*Sinc[2*(Pi + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] + 

(0.470653533650652480209317167951072214205001811683547791483637583179952\, 
885260214778753291624996787313200544936852702529092293120710584871'119.836765\ 
54087384 - 2.9046614253988991064223595098153142710465128707903822073451803008\ 
856136964974677451215616321728024240230993815185881158297633875 112 .627159734\ 
39477«*-8%I) *Sinc[2«*(Pi/2 + x)]*Sinc[2«(Pi/2 + y)]*Sinc[2*(Pi + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 

(0. 682641332959417889775132488056663006866853439867014678491280442450311\ 
339494795443391852852664980465542073631471072940164491277371725872'119 .632869\ 
33793262 - 6.4744627090360627392017722245955273885402757718890306630540822406\ 
018484899623547203750085092915728033012169570263241126064416673'112.609880491\ 
08836**-8xI)*Sinc[2«*(Pi + x)]*Sinc[2«*(Pi/2 + y)]*Sinc[2*(Pi + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 

(2.514992463462014848399682636949068377097092195820359980931642624432640\, 
034022619786895385780202025977318830452472500763775972326445211799'120.129684\ 
58393695 - 2.1642189661645247514298837563531714786835475820006102976774976414\ 
459686248653128751655528981900868178998515399948856226100954189'112.064449094\ 
63387«*-8%I) *Sinc[2*x] *Sinc[2*(Pi + y)]*Sinc[2«*(Pi + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 

(4.155891533038719183684984786529787279688023168560294239151205119681936\, 
522010761788066023234033171301154999499937848684482528880261561049'119.908697\ 
3060922 + 1.08289427581728303767600008110551940698862313666435469626585022756\ 
02486472920401885191677444968309734943096922183833360786519991'112.3246191599\ 
9384**-7*1)*Sinc[2*(-Pi + x)]*Sinc[2«*(Pi + y)]*Sinc[2*(Pi + z)]* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 

(0. 736700388711129373991418837765411664615437822309042575819400879861514\, 
389595691176021050255420603413158875206418451245372163567588782519'119.664051\ 
30827502 + 6.4151142476716556700760190045201704070942394031031047988052230040\ 
774702135013223726864440139827218348867791963061440637883517051 ‘112 .603964804\ 
46111«*-8«1I)*Sinc[2«(-Pi/2 + x)]*Sinc[2*(Pi + y)]*Sinc[2*(Pi + z)]«* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 

(0. 682641403312067403927827436287079475065741169789432695384199940011705\, 
495209592558572051573373534126202944607085457443169557624894160011'119.632869\ 
36944047 - 7.0553752079163645172703186642124685043001033383919305325630988752\ 


B_ Result Notes 


B.1 


Example File of Results 


35712986091561887760837275649051144916224015629109096171488662 ‘112 .6471968587\ 
055**-8+1I)*Sinc([2*(Pi/2 + x)]*Sinc[2«*(Pi + y)]*Sinc[2*(Pi + z)]* 

Sinc [Sqrt [13] *Log[t/(1.**-6 - t)]] + 

(3 .598733166956195549799667495773774875231494517594984138262329090261359\, 
846585157525935526241020972678621768926671785891153698777478932733'119.870197\ 
88375304 - 2.8832826702289488230519872651045415391224438585871067838283538296\ 
5348780885811659998824717544948651737888964247947245206726334861'112.77393545\ 
895247«*-7*1I)*Sinc[2*(Pi + x)]*Sinc[2«*(Pi + y)]*Sinc[2*(Pi + z)]l* 

Sinc [Sqrt [13] *«Log[t/(1.**-6 - t)]] - 

(0.305217935458132264758274524847122038599125406274921358827142842015173\ 
766556817005120492574170136064291774464971634227166426939797742392'120.150514\ 
99783199 - 1.1228589230990275818055960918351761519683220227008747491958672187\ 
9170003832908795759142155679200286091226498330926039940673096'110.71623014202\ 
28**-10*1I) *Sinc[2*x] *Sinc [2*y] *Sinc [2*z]* 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 

(0.129837900911833733442336205422012650554431706260608808870784223593136\ 
910629648072692141781401680057280670479795071376696433151477494821'120.147660\ 
61120879 - 1.4955482453427111836062250305802424068627237675832696014761966890\ 
034370204644587298255338432771749511644062320794494324651242'110.209059553199\ 
O1**-11«I)*Sinc[2*(-Pi + x)]*Sinc[2s*y]*Sinc[2«z]* 

Sinc [Sqrt [13] «* (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 

(0.444711155258632658484155921641083592546480174686676041471338544093769\, 
536389662120552552761503990343798454861972491194138042227876226777'120.150509\ 
50255983 + 8.5154172788552670372760190621348660355858944557512286039040133453\ 
911978658158906317502554288290068052318292359969373266816549 ‘110. 432637413453\ 
93x*-11%I) *Sinc[2*(-Pi/2 + x)]*Sinc[2*y]*Sinc[2*z] * 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 

(0.444711155258632461359236040597452425376304275667533036899121927897985\, 
264896536135299791341836128842303620179157052109480249251339342408'120.150509\ 
50255983 + 8.5154186333217175864097221203846324067922416183335729552589699872\ 
87510697317372522869881846799621247357014505205204534239588'110.432637482533%*\ 
-11«I)*Sinc[2«(Pi/2 + x)]*Sinc[2*y]*Sinc[2*z] * 

Sinc [Sqrt [13] «* (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 

(0.129837900911833417298140182396115259928405101767500157422792489019829\, 
595448629062241040398728964608405710297197761153837802650407497756'120.147660\ 
61120879 - 1.4955473735049666519772070782955207377837387589047314936392303853\ 
557071850812859806689631283463758975077685664264299966830374 ‘110. 209059300024\ 
72**-11*1)*Sinc[2«* (Pi + x)]*Sinc[2*y]*Sinc[2+*z] * 

Sinc [Sqrt [13] «* (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 

(0.129837898602851977252158363955614421093752553900890882267085180778222\ 
915648558801380954030120786892216145343839954814877774892995040093'120.147660\ 
63639154 - 2.0398759590315118229620142691996776699163838096140649251102837991\ 
8565316803728047859896701555900589756005016336727136931573816 ‘111. 34386291808\ 
411**-10«I) *«Sinc[2*x] *Sinc[2*(-Pi + y)]*Sinc[2«z]* 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(2.514990170707305461358853053286661912277391048496953405245973292833642\, 
499496952300911525203167181126085251183037410381835701271285167207'120.129684\ 
58445206 - 6.1362239478789660219064570691821961996197443902854496696656382021\ 
10820103618450606470366963824133214342776940656973916138110357'111.5170494936\ 
617%*-9«1) *Sinc[2*(-Pi + x)]*Sinc[2*(-Pi + y)]*Sinc[2«z]* 

Sinc [Sqrt [13] «(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(0.186345328019851659113957853740138329687724687911408907209947187333685\, 
119613402155048859177907609257696584629338976849973754529931409729'119.682906\ 
14554579 + 0.2153369186852831571027078464763205006028381570081891035819301584\ 
68814465893378724517988796165456846582673823035492788264857808860132748'119.7\ 
4570613111086*1) *Sinc[2«*(-Pi/2 + x)]*Sinc[2«*(-Pi + y)]*Sinc[2*z]* 

Since [Sqrt [13] *(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(0.217459873480535205475066470896569742215548706683348486060431796627478\, 
492775133920900146485110042425549206316807722673034642364737129237'119.742274\ 
56301465 + 0.2071224261901957377879011482411144915024641344528354870151105593\ 
98853220191501235210741697721959772880913009410905917827076172910112146'119.7\ 
211225566882«1) *Sinc[2*(Pi/2 + x)]*Sinc[2«*(-Pi + y)]*Sinc[2«z]* 

Sinc [Sqrt [13] «(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(2.616956121831010486374480671067302177237963856456362439594543118862040\ 
199183975312793223911117919811561390678282829178684291708514339793'120.128181\ 
67383291 + 6.2244378854107880847216341751068039578594811610551813721559745771\ 
90666722661811516912738212968722895935326537764163711069438716 ‘111 .5044853703\ 
0049**-941)#Sinc[2* (Pi + x)]*Sinc[2*(-Pi + y)]*Sinc[2*z]* 

Since [Sqrt [13] *(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 

(0.444711153628559882285962917818368514355959210339724903532659273777468\, 
036346421448335336159528982366003848183828960334778763518049141957'120.150509\ 
50256594 + 1.0521157543306552725652962816792258169493821367500989191770214314\ 
8299057327908315356415093451148757376706905052563920016161992'110.52449500436\ 
288%*-10«1) *Sinc[2*x] *Sinc[2«*(-Pi/2 + y)]*Sinc[2«*z]* 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 

(2.315021752021078756396883796412162060416596248957995832729189654302679\, 
480471693905323066595684042090051312514153453180048713785773710649'120.143252\ 
05696667 + 0.2153369188229137260195488129620705876579084148540684769217520729\ 
01689476286396762255554812906770580622954993926147170116285582587928282'119.1\ 
1181547554888*1I) *Sinc[2*(-Pi + x)]*Sinc[2«*(-Pi/2 + y)]*Sinc[2*z]* 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(0.166354147871781615328702887542958376935620197826534470528688836637461\, 
267658772885396697809532934851653660699585308525124482797979836982'119.931437\ 
49830635 + 1.1136557561300296516320822638595552690743893881887643116158806339\ 
89042398798798946910420265821617997773058227813713292314464477 111.7571548304\ 
1083%*-9%1)*Sinc[2*(-Pi/2 + x)]*Sinc[2«(-Pi/2 + y)]*Sinc[2«z]* 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(0.168479834794505765603890436281549181918903054412670121196533417078079\, 
960962764980950015305282071903606403732053021919412557159131875441'119.958710\ 


179 


180 B_ Result Notes 


04363076 - 9.2319682223801785635837011571495521062192656734281038190543410276\ 
3702633384015766365683454632839258016970849744747443117704311'111.69745641656\ 
014**-104I)*Sinc[2*(Pi/2 + x)]*Sinc[2*(-Pi/2 + y)]*Sinc[2*z]* 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 

(2.333941598424016834423331081647898883815739327200492635189543580251649\, 
007924309171749959416502138417427084655750710107644762979854641687'120.144028\ 
62111852 + 0.2071224266390870849357582403787713227014474750632137870817263993\ 
8513085885893853084614583112793037953725076022172369426895564738631112'119.09\ 
216576213963%1) xSinc[2* (Pi + x)]*Sinc[2*(-Pi/2 + y)]*Sinc[2«z]* 

Sinc [Sqrt [13] «* (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 

(0.444711153628559843595250114717962014389644518496674038531980063232628\, 
142762778892784432575216241657554757280375987619968079050070536251'120.150509\ 
50256594 + 1.0521157557286149264436479030026162036442592130669637452624824288\ 
9816357729236691602646109093257338473770153828841141160532514 '110.52449500493\ 
994**-10*1) *Sinc[2*x] *Sinc[2*(Pi/2 + y)]*Sinc[2«*z]* 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 

(2.333941598424017030589279153062078168435475996669146534146369943902631\, 
308637160283598335414347029383307785658127799297238253275927442045'120.144028\ 
62111852 + 0.2071224266390870576749483716221678936464823918133415246835496755\ 
77989037490625582735507070402305005578539654168374940833071745734547703'119.0\ 
9216576213962«1) *Sinc[2*(-Pi + x)]*Sinc[2«*(Pi/2 + y)]*Sinc[2«z]* 

Since [Sqrt [13] «*(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(0.168479834794505717752393043501180576731288955455194780803835969356766\, 
931397417282574054556456543466765295596979464869889774841351880165'119.958710\ 
04363076 - 9.2319678581345093001602385178746597722203452642781302353374186171\ 
7873049573092100694728547355969687489466072147148293642726768'111.69745639942\ 
512**-10*I)*Sinc[2*(-Pi/2 + x)]*Sinc[2*(Pi/2 + y)]*Sinc[2+*z]+* 

Since [Sqrt [13] «*(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(0.166354147871781817572936494648549018752894758060828823500232117231426\ 
060428930321728618408044510832614337063574091593683906637749957155'119.931437\ 
49830635 + 1.1136557701268628694420354146884364690664040465502100354732754332\ 
66037119079433848530849139201815933827262045495262925747336801'111.7571548358\ 
692%*-9%1) *Sinc[2*(Pi/2 + x)]*Sinc[2*(Pi/2 + y)]*Sinc[2«*z]* 

Sinc [Sqrt [13] «(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 

(2.315021752021078574296740306948576040684385036074274053154010481475551\, 
709387150042739801579225393304728900543590544146710688179157269133 '120.143252\ 
05696666 + 0.2153369188229137034119464809843657946092240594364519674588645072\ 
4687668506681945028535777373131367542860933480678666863283476892845819'119.11\ 
181547554887*1) *Sinc [2+ (Pi + x)]*Sinc[2*(Pi/2 + y)]*Sinc[2*z]* 

Since [Sqrt [13] «*(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 

(0.129837898602851986124892393979968931999226329191653009752983386301193\, 
202177463159406668600648218160338924940063371456525853195408317474'120.147660\ 
63639154 - 2.0398759485498756033604265302979901549750036246980846113590832522\ 
5626331918560734317403166887628471722167321228364924949607639'111.34386291585\ 
254**-10*1) *Sinc[2*x] *Sinc[2*(Pi + y)]«*Sinc[2«*z]* 

Since [Sqrt [13] *(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(2.616956121831010114623181320710196806321809624156418794239446118225061\ 
45257498561766191863338592391010308065948239795933528904156461323'120.1281816\ 
738329 + 6.224437880921292422315329494878079863096092220762896677545546206391\ 
469676301296853588892706440952030674731827096550387248240037'111.504485369987\ 
26%*-9«I)*Sinc[2*(-Pi + x)]*Sinc[2«*(Pi + y)]*Sinc[2*z]« 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(0.217459873480535098747741430197762501520888714042518294088588555356466\, 
505489523880142563690279554718854201131885696767812268064591599409'119.742274\ 
56301465 + 0.2071224261901957186094627979927024364561739797258866079407216730\ 
42008869072264293794294056174932121479805788078981084031264010464956102'119.7\ 
2112255668821) *Sinc[2*(-Pi/2 + x)]*Sinc[2*(Pi + y)]*Sinc[2*z]* 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(0.186345328019851759264441530676753263241012202339863013566621531312339\ 
635507201133358163858752972988195662819932402369046678639245850731'119.682906\ 
1455458 + 0.21533691868528316981297337061899862691422846080890399924548340446\ 
3903991955699310079151304019297104668109495317587225231539289406692702'119.74\ 
570613111088%1I) *Sinc[2*(Pi/2 + x)]*Sinc[2*(Pi + y)]*Sinc[2«z]* 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(2.514990170707305382601127153953688048863383770184362367863078376276651\, 
84789922362499594203116480533862476979206626659855021073236102927'120.1296845\ 
8445205 - 6.13622390451281043693438593247001073457060323094769509976848318933\ 
6758488856869299556600430471709420220315035888177840429735352'111.51704949059\ 
241**-9+1) *Sinc[2* (Pi + x)]*Sinc[2*(Pi + y)]*Sinc[2*z]* 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 

(0.129837901439901361728120357166441272651817150099840917940040593785876\, 
389342507017754607993820215407909354707105469489752776041200545594'120.147660\ 
63196039 - 5.2119075811831079108135929145505046835225199279113786448216320622\ 
842564568656012861292324991455641435057275490471568295250462 ‘110. 751255850647\ 
18%*-11«1) *Sinc[2*x] *Sinc[2*y]*Sinc[2«*(-Pi + z)]* 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(2.514990205097049611204413064523094970015467844024611180303922781535237\ 
048101703895601758162655716442721969006708170192485697649582794962'120.129684\ 
58369103 - 5.2235134086705444034705875508955327636992636772419613632687417087\ 
31874490202971248606033294464308837323450982788193948923599763 \111.4471109995\ 
7257**-9«1)*Sinc[2*(-Pi + x)]*Sinc[2*y]*Sinc[2*(-Pi + z)]* 

Sinc [Sqrt [13] «* (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 

(2.315021776974850321356744420326619655942741865852009840215088316219610\ 
80336611102182447234121834991499400675369102227440007959793916071'120.1432520\ 
5738093 + 0.21533691524896448378433528382577723067170366890844395235514656255\ 
2388955087414382009978072313649703279944755035556979513344487919302988'119.11\ 
181546407389«1) xSinc[2*(-Pi/2 + x)]*Sinc[2«*y]*Sinc[2«(-Pi + z)]* 

Sinc [Sqrt [13] «* (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 

(2.333941584181926581846619063873942380052561964560786082872117421355240\ 


B.1 


Example File of Results 


333267190209298968707917936905512501554448476097511953671436515163'120.144028\ 
62089503 + 0.2071224300651092136202028959640168688757354542872863849158056833\ 
0233693368981305880131774937784960363794504485965236435688230853012848'119.09\ 
2165771749931) *Sinc[2*(Pi/2 + x)]*Sinc[2*y]*Sinc[2*(-Pi + z)]+* 

Sinc [Sqrt [13] *(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(2.616956062409701420991743504513825246178023239122591886634913790109344\, 
985090648042351568918484139176497475849572063795345696306723645276'120.128181\ 
67420026 + 4.7809543286746903448835351662694544801593387285992358737197775873\ 
46329830425701922632424678101583508028919040415812480937632931'111.3898998381\ 
2382%*-9%1I)*Sinc([2*(Pi + x)]*Sinc[2s*y]*Sinc[2«(-Pi + z)]* 

Since [Sqrt [13] «(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(2.514990128168997963095644619591007228579147262098574615089632013900410\, 
679387206118395002903848994561047150654988905424208714875602938827'120.129684\ 
583721 - 5.345755538252449444719402649068334411931158547731653856046322819542\ 
544703677942329917281969967626007039238566061166182174796855 111. 457157393576\ 
76**-9*1)*Sinc [2*x]*Sinc[2*(-Pi + y)]*Sinc[2*(-Pi + z)]* 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(3 .598731026324083744789969454489217723175921790949668576465144860671910\, 
447912865722154611265157125260653489069756662958673929013510332022'119.870197\ 
98485746 - 7.3414258201553562130204190142186448585872408840816846218976493761\ 
433321377664904109939126918222910458083456860074557082909519533 ‘112.179829011\ 
62122«*-8%1I)*Sinc[2*(-Pi + x)]*Sinc[2*(-Pi + y)]*Sinc[2*(-Pi + z)]« 

Sinc [Sqrt [13] «* (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 

(0. 682640608026945095259031556775787896807290279511471561292225367249668\, 
257375226971329542758796298052061303343967498318339708909336696712'119.632869\ 
33276035 - 1.7951173898533151227754167954674394143310452924103517440325658447\ 
874804970643756155040254711566947195837132143971304282958168463 '112.052770067\ 
39362«*-8x1I) *Sinc[2«(-Pi/2 + x)]*Sinc[2*(-Pi + y)]*Sinc[2*(-Pi + z)]* 

Sinc [Sqrt [13] «* (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 

(0. 736699865694633092978031693271690466008845339877154665528233321138467\ 
459670433843891227784588624698674176886057461213489038638512313045'119.664051\ 
45082275 + 1.6345550590462861694851544946751141097397600522063213650371930215\ 
621796037719720599370462619198219907899771609070472869353281564'112.010160414\ 
26509«*-8xI)*Sinc[2«*(Pi/2 + x)]*Sinc([2*(-Pi + y)]*Sinc[2*(-Pi + z)]* 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(4.155887970911819587472263816160254986230747616832070031948263457527407\, 
399058013496411030984724458386820072410030301884739779974155710117'119.908697\ 
33912373 + 2.7566691348823664349099711854040879076241400510484770765544381122\ 
414523001800019982985014515310784863169357103091137209623088841'111.730418150\ 
91709**-8%I)*Sinc[2* (Pi + x)]*Sinc[2*(-Pi + y)]*Sinc[2«*(-Pi + z)]* 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(0.186345315728302535864849876105533463026424420600227518515920423956857\, 
755712861506814433819934794271037026356313928959061796754532464496'119 .682906\ 
11216213 + 0.2153369217232480166350126173684145079272487128514672910621416958\ 
51621154257170661485165613375346372759765540610431716419710295877869108'119.7\ 
4570613250076«1) *Sinc [2*x] *Sinc[2*(-Pi/2 + y)]*Sinc[2*(-Pi + z)]* 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 

(0. 682640590224456008511077442722458143238188320530531721483182238491450\ 
97151148071165804316570771737086022825774336931190866194994437744 ‘119 .6328693\ 
2451264 - 1.65151389313956939130865370387592980316827850113331202168156718147\, 
07790528410999246988506931800076241728351979741064275803942409'112.0165594478\ 
7535x*-8x1)*Sinc[2*(-Pi + x)]*Sinc[2«*(-Pi/2 + y)]*Sinc[2*(-Pi + z)]* 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(0.470653026584668865887377871200512436862421106731415183775407594320788\, 
142550370083399498106225389196518659647034445969793583463370334246'119.836765\ 
59117276 - 7.3866986945110385649323100902418228735459447923691606464765479159\ 
34082826302396459697634792989134760687389097028623575328683666 ‘112.0325151197\ 
5247**-9xI) *Sinc[2*(-Pi/2 + x)]*Sinc[2*(-Pi/2 + y)]*Sinc[2*(-Pi + z)]«* 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(0.483476735636947364655069774674129220882406651363538803282108095782875\, 
148692058969282038700618736614613357285198903424795135658042096684'119.881008\ 
39812425 - 0.0072644493686802613790798965459550823149650367622215766403138339\ 
69183753497380692910085373035328924141107806905677633048736359798590059'118.0\ 
5783551816349«1) *Sinc[2*(Pi/2 + x)]*Sinc[2«*(-Pi/2 + y)]*Sinc[2*(-Pi + z)]* 

Sinc [Sqrt [13] «* (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 

(0.830873751985440985157787505328530541108187743539854855754646836189212\, 
011428566407558640040517040673580604672535736104963049889666096123'119.716368\ 
35807287 - 0.0265886153853833729366781379672543749996427818908829245033881120\ 
68692850030192077168919847108332998938583279804311783058345970278575153‘118.2\ 
2152904045414*1)*Sinc[2*(Pi + x)]*Sinc[2*(-Pi/2 + y)]*Sinc[2*(-Pi + z)]* 

Sinc [Sqrt [13] «(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(0.217459889997323431065641390531822344849608066593329503739777815351597\, 
365137867704834268644175058901572467699012441092321036391291250379'119.742274\ 
59090967 + 0.2071224235517206144115116451008640023532522719225535039801195885\ 
54192739953601740861309586628221321856848513935564048349237173347272359'119.7\ 
2112254606479«1) *Sinc [2*x] *Sinc[2*(Pi/2 + y)]*Sinc[2«(-Pi + z)]* 

Sinc [Sqrt [13] «(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 

(0. 736699938080890652898076871866532002501961183018265402472710830667781\ 
651926506244825224473685977182280409834708609184799829813845416287'119.664051\ 
49878013 + 1.4938988887181561483991017537160705325374298065776809994928515952\ 
164069674137958535392422792082378217857172154556280279478858277\111.971082069\ 
62847«*-8x1I)*Sinc[2«*(-Pi + x)]*Sinc[2*(Pi/2 + y)]*Sinc[2*(-Pi + z)]* 

Sinc [Sqrt [13] «(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(0.439745964075582751451588713684837490222785932123304735411798704659177\, 
744175257447918407095414903919584459251798386438927459666300052442'119.842093\ 
85747118 + 0.0072644508712718411572677096484632833605133151093067675023105322\ 
881197547792981616181265710741547849036607719339576936536490773402828'118.060\ 
0947862385«I) *Sinc[2*(-Pi/2 + x)]*Sinc[2*(Pi/2 + y)]*Sinc[2«*(-Pi + z)]* 

Sinc [Sqrt [13] *(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 
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(0.462411240834670088303773926849588161376265423976767708300349529324089\, 
431335871908671592646437883503656472854430268929760104528629287652'119.820559\ 
847598 + 6.014227305014483960245245148561508499153931877224750469140181998139\ 
039215860311861336803301594478275311444117811088013903812663 ‘111 .934711302756\ 
85**-94I) *Sinc[2*(Pi/2 + x)]*Sinc[2*(Pi/2 + y)]*Sinc[2*(-Pi + z)]* 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 

(0.607407761187540896909595807653813597489160095267407626221513284156164\, 
689602578769591683865111434211489298391748203858596683953755981325'119.593650\ 
59457836 + 0.0265886166273412079744229735470479291289933992952211966396213881\ 
43836023335264719557036604058299406055624764305097272738205505363788554'‘118.2\ 
3486599985551+%1I)*Sinc[2*(Pi + x)]*Sinc[2«*(Pi/2 + y)]*Sinc[2«*(-Pi + z)]* 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(2.616956144923212147301834623241958858720747241213108071304246292001955\, 
642780574445571463472136731928995173661187494699573999855706714573'120.128181\ 
67446073 + 4.6587127780788433217131741567360561557589468941857123218878388891\ 
18502885351211623829400276127700424373463569639954499100497098'111.3786511655\ 
6182%*-9%I) *Sinc[2*x]*Sinc[2* (Pi + y)]*Sinc[2*(-Pi + z)]* 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(4.155888701555051703288464351314675315846630897291588184522434040154440\, 
280259870882304985095972194082363294267485120382711675508936157122'119.908697\ 
38003211 + 2.7566692886884390841868064045136580123318041607621723345064189714\ 
658642197774478619893656886674582291902405058205719578751898959 ‘111.730418139\ 
70363x*-8*I)*Sinc[2*(-Pi + x)]*Sinc[2«*(Pi + y)]*Sinc[2*(-Pi + z)]«* 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 

(0.607407894326608232544941885749850516044727339172288052263571257269049\, 
77976 0644614951116206655672689986689205489724995726923486499123074'119.593650\ 
69471396 + 0.0265885908769224211863508845948661081165394061714576947004437014\ 
16919630590410715795195637478149470671736461730965362993906505090639247'118.2\ 
3486558419347«1) *Sinc[2«*(-Pi/2 + x)]*Sinc[2«*(Pi + y)]*Sinc[2«*(-Pi + z)]«* 

Sinc [Sqrt [13] «* (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 

(0.830873657333116916278940552780816274430471734523459623738842201681205\, 
976211072921789580500115262692799171164342886275624640843808041976'119.716368\ 
32088879 - 0.0265885896644373475256149257393992505147462492519523453170527179\ 
3339493597394130769398994991693051163270410223170973241466769451799069'118.22\ 
152863262215+1) *Sinc[2*(Pi/2 + x)]*Sinc[2*(Pi + y)]*Sinc[2*(-Pi + z)]* 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(4.155888291862233359878109321214313640092338881620675130998814223987609\, 
048000349317758087349806705759095474071458632957124400512467983255'119.908697\ 
35692621 + 2.0146817823721313553037243842114178055524133259329518896713151814\ 
746480844519323410622268437432008742929377059585884621845219646 '111.594239950\ 
86988%*-8%1I)*Sinc[2*(Pi + x)]*Sinc[2*(Pi + y)]*Sinc[2«(-Pi + z)]* 

Sinc [Sqrt [13] «* (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 

(0.444711153940592865865212422156659114865090929376052539337661733164086\, 
164357872552960413530309116871830853057056523875259952811138592125'120.150509\ 
50256582 + 4.3123950814409706896239275504267552710009871635628828069245354785\ 
68170115698422205578870896123490873118234088351220480863821 '110.1371500223314\ 
**-114*1I) *Sinc [2*x] *Sinc [2*y]*Sinc[2+*(-Pi/2 + z)]* 

Since [Sqrt [13] *(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(0.186345341470663804579409431019767722109312244734085183833778324207850\, 
758744462377921131204980572251397209100382781473454404146777793975'119 .682906\ 
16731475 + 0.2153369145938250849327349547294525453535289845302422477076387904\ 
74449454826659763578684966589279781063736473542554210161378047905497543'119.7\ 
457061132798«1) *Sinc [2s (-Pi + x)]*Sinc[2+y] *Sinc[2«(-Pi/2 + z)]«* 

Sinc [Sqrt [13] «(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(0.166354136590872680176295460670431509840708053097302443067609210326678\, 
495850001279674049741576823982225356893902159012650992963822158848'119.931437\ 
49362473 + 1.0956453266901441556908220131101418514490237650044361745787854721\ 
3804990501933940620203210342226645252586110846962309592636056'110.75007387969\ 
76**-10*1) *Sinc[2*(-Pi/2 + x)]*Sinc[2*y]*Sinc[2*(-Pi/2 + z)]* 

Since [Sqrt [13] *(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(0.168479846318544202228370592590003027049869171546179846189184425367078\, 
7102582774 08873863857750842483183367817696114558619003358586156416'119.958710\ 
04632026 - 2.4590447306046326260480845868073955243413114122284385245728167006\ 
169038315631624485226485996095760590427156888429307841386626 ‘110. 122928517356\ 
81%*-11«1)*Sinc[2«*(Pi/2 + x)]*Sinc[2*y]*Sinc[2«(-Pi/2 + z)]«* 

Since [Sqrt [13] «*(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(0.217459857624473477176147637634835823047384028059439366262098994573386\, 
955274506882041162497461918833453590282046961406108924270384083235'119.742274\ 
52287305 + 0.2071224307785136017014848517216931720628246197945057436851323434\ 
85448395488815847556813123634283853928958686719597491225334442874030927'119.7\ 
2112255783394+1) *Sinc([2«(Pi + x)]*Sinc[2+*y] *Sinc[2«(-Pi/2 + z)]«* 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 

(2.315021743571800577600548488921679810558628892461315637587659904187852\, 
19917183491278232768985060905887479256008888691564807734130961103'120.1432520\ 
567695 + 0.215336922471482858219292299500439447143656013946587922117589552048\ 
37806524969706319378397146760389703203054617518304736119261662165284'119.1118\ 
1548429528«1) *Sinc [2«x] *Sinc[2*(-Pi + y)]*Sinc[2*(-Pi/2 + z)]l* 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 

(0. 682640420459842322297718817234718709054978993196255511048041986849575\, 
039546501014130554932546398395929169628488477772571910717120301102'119.632869\ 
22678103 + 1.9429384960363651943644691073589767000199172409382119731353387823\ 
542157860729318177156629116164487327148416420809741043960355024'112.087136279\ 
8313%*-8%1)*Sinc[2«*(-Pi + x)]*Sinc[2«*(-Pi + y)]*Sinc[2«*(-Pi/2 + z)]* 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(0.470653003022509924780422696638107213326774047259802249452779000152238\, 
336162943549417663815923370221337230894992849557574009419956649279'119.836765\ 
59541637 + 2.1193144710852133013651622473373000874515498745623949229626297141\ 
11364779746334558003576174647538361662264960526853170511583087'111.4902601649\ 
3197%**-9*I) *Sinc[2*(-Pi/2 + x)]*Sinc[2*(-Pi + y)]*Sinc[2*(-Pi/2 + z)]«* 


B.1 


Example File of Results 


Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(0.439745942116771506469088503493119164252332745338675947670097881212822\ 
42723141645866724148368191181427393994975113952489313279181943809 ‘119 .8420938\ 
0192215 + 0.00726445452043904954204644479617347720313277032097644555592012731\ 
6129758549624777647974234411314640867334534102128608772104449947411734 ‘118 .06\ 
009497053606+1) *Sinc[2*(Pi/2 + x)]*Sinc[2*(-Pi + y)]*Sinc[2*(-Pi/2 + z)]* 

Sinc [Sqrt [13] * (- (Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 

(0.607407812704482438974792628363674971765487906081087424067070948302360\, 
92824959020593433110731247714389679966506758245694760405844857361'119.5936506\ 
2768106 + 0.02658860462495641954548424761179947909607698204470458814336299643\ 
113066365725683956394826362158962848344044189378881952429996533085702'118.234\ 
865800078581) *Sinc[2* (Pi + x)]«*Sinc[2*(-Pi + y)]*Sinc[2*(-Pi/2 + z)]* 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(0.166354146945495693891301080628804382255828215149393415017357596202503\, 
445569000635285236463030153304204666055731385737100615290876934115'119.931437\ 
48188086 + 1.1345804238577118649198190144622937947845528913118173749211056624\ 
8164497053196450043793838210660727856989803040582453624355583 ‘110. 76523913620\ 
85**-10%1) *Sinc[2+*x] *Sinc[2*(-Pi/2 + y)]*Sinc[2«(-Pi/2 + z)]«* 

Sinc [Sqrt [13] «(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(0.470652989496978733759114716537385746264532195132571793008783143435548\, 
335246552348553436144307289336859231447672629691628301595483077422'119.836765\ 
53360269 + 3.0383206001740825439344494243332446567324056413115275040758200528\ 
19203004618082544369975685954444203196696673092252504968293175 ‘111 .6466983102\ 
2535%*-9*1)*Sinc[2*(-Pi + x)]*Sinc[2«*(-Pi/2 + y)]*Sinc[2*(-Pi/2 + z)]* 

Since [Sqrt [13] *(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(0. 052028027236033344060111833043898935145864295842152231489103187064485\, 
16103315703042361406535233580685291212045033590438046788860561282 ‘119. 3436053\ 
9017969 - 1.98943996011853656168972188248810077050901218291059699049025422858\ 
215849614607555876248311661958778535301223956098951238676846 ‘111. 926098868241\ 
33%*-9%I)*Sinc[2%(-Pi/2 + x)]*Sinc[2*(-Pi/2 + y)]*Sinc[2«(-Pi/2 + z)]«* 

Since [Sqrt [13] «(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(0.105614216601848839432458959133999338122744107893092901946526074567849\, 
1580731605689415097651062200046759057156432634084019017400349676'119.66911677\ 
985676 + 6.040259469602741679007654822931753470758234094138857455263634739036\ 
27024189436442541691654189638664437338636744724274710525412 ‘111. 42644999274833\ 
**-1041I) *Sinc[2*(Pi/2 + x)]*Sinc[2*(-Pi/2 + y)]*Sinc[2*(-Pi/2 + z)]* 

Since [Sqrt [13] *(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(0.462411258179664298958898623812773869361150246959629672001478094050667\, 
351319719115948773193956628825710199775827707634622311705192067812'119.820559\ 
84320144 - 4.2642135353966526746398060304775719465151942333692892576596247359\ 
71728380145078888005845925374195894108509126006429908828694411'111.7853703883\ 
8945%*-9*1)*Sinc[2*(Pi + x)]*Sinc[2*(-Pi/2 + y)]*Sinc[2«*(-Pi/2 + z)]* 

Sinc [Sqrt [13] «(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(0.168479833820322958975816921409205186402289848099133638042745944197694\, 
545852724315495387517243891806163045154332417523137643594387899475'119.958710\ 
0541445 - 2.06969527779162394368696664255935222146817453750124431839651406533\ 
87029198881853004456400555331472749158057104592016282828874 110. 04806853745104\ 
4*-114I) *Sinc [2*x] *Sinc[2«*(Pi/2 + y)]*Sinc[2*(-Pi/2 + z)]* 

Sinc [Sqrt [13] *(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(0.483476727830949704731369018071872884510136356702614686605154955962662\, 
904210999126324744661564372578244208798767834301908065516415212631'119.881008\ 
41640532 - 0.0072644468320482378123187121076796124832826720184125851683420316\ 
45518581973160258486289821741765678148980011351172672328717155414497469'118.0\ 
5783539180764%1I) *Sinc[2«(-Pi + x)]*Sinc[2«*(Pi/2 + y)]*Sinc[2«(-Pi/2 + z)]* 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(0.105614232526475597686562355042957781818524776863621086430224816454962\, 
451570380912885258352607059761044767274025406629349158359987292227'119.669116\ 
83909365 + 6.0402600382937671668571617609546635251763040645403301938666444263\ 
6293287112024493738881510548538548669273334080706022613641449'111.42645002739\ 
069**-10*I) *Sinc[2*(-Pi/2 + x)]*Sinc[2*(Pi/2 + y)]*Sinc[2*(-Pi/2 + z)]* 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(0.105614224188652342417710243001566454008925718208017586618963453264981\, 
228570285913621907403812781587781180361398585904631706223028787181'119.669116\ 
80506203 + 5.4122840135454333974721134199850378796815035850179859649927146833\ 
7592966355048589917209693232995096348623929664033763521141064 '111.37877497032\ 
002**-10«I) *Sinc[2*(Pi/2 + x)]*Sinc[2«*(Pi/2 + y)]*Sinc[2«(-Pi/2 + z)]« 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(0.439745972098372274992870655570360420154824079520332696673621391332543\, 
973268199115583591848093931170241519681076910460395561200494745035'119.842093\ 
88201512 + 0.0072644482702585445977738819425781167847235260281586836409657449\ 
22592388026528650614213826818781116776485081793171061886129931357333003'118.0\ 
600946473613241) *Sinc[2* (Pi + x)]*Sinc[2*(Pi/2 + y)]*Sinc[2«(-Pi/2 + z)]l« 

Sinc [Sqrt [13] «* (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 

(2.333941608580828372291328208707162999403673319523498536079388888228505\, 
81039530492004143452393078729979401152493304648626337206802528398'120.1440286\ 
2133586 + 0.20712242293141169276261117095686643236235271901027277798425166749\ 
7340210383635218907750530398211322093347053245448679172899216236508135'119.09\ 
216575269276*1) xSinc [2+*x] *Sinc[2*(Pi + y)]*Sinc[2*(-Pi/2 + z)]* 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 

(0.830873746221550878167816524486367212946549833625527532027552766715201\, 
516786614038011246738968051458398758452746382876730397463470193157'119.716368\ 
36118061 - 0.0265886002307872784485639784124611788436704399797655722634859526\ 
80749784147860748301555186936457680801372992309959306533968562157878525 ‘118.2\ 
2152879904166%1)*Sinc[2*(-Pi + x)]*Sinc[2«*(Pi + y)]*Sinc[2«*(-Pi/2 + z)]«* 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(0.462411266619871001643912051956618139262723450175438543506020485815006\, 
709207395882169619374186587493914190275814794172466072299894468963'119.820559\ 
89657687 - 3.1516782520130336400673784316393140105870681518100593458124296735\ 
96232471500600013241138319626450281032360803939224557458012577 \111.6540733643\ 


183 


184 B_ Result Notes 


7936%*-9%1)*Sinc[2*(-Pi/2 + x)]*Sinc(2«*(Pi + y)]+*Sinc[2«*(-Pi/2 + z)]* 

Since [Sqrt [13] «(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(0.483476737336281902238366028722833835208782139055185391378611454167861\, 
756234274076359229017991267835568688113303091773153783908814974777'119.881008\ 
37720604 - 0.0072644528886998708566347174994275336266761778687246662519061169\ 
00108374204269117937028478701489142453221480588447171667068571694298282'118.0\ 
5783570615799«1) *Sinc[2«*(Pi/2 + x)]*Sinc[2«*(Pi + y)]*Sinc[2«*(-Pi/2 + z)]* 

Sinc [Sqrt [13] *(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 

(0. 736700077191917913091293913993714663954337027527099562665315397900612\, 
140035602519189558048122919743196872501250243572446259646269699218'119.664051\ 
57253507 - 2.2848376374472428178855921512983581811924794076359860226701586634\ 
746598280027612444926705834191389794833759729759722182198675111'112.155616201\ 
33268%*-8%I)*Sinc[2*(Pi + x)]*Sinc[2*(Pi + y)]*Sinc[2*(-Pi/2 + z)]* 

Sinc [Sqrt [13] *(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 

(0.444711153940592895255599257139028299773962082844094450202122220570096\, 
136041060735286527846903628859210099138045156242848142649385744733 '120.150509\ 
50256582 + 4.3123950992615354780352352227031881107648235592307584735581965002\ 
722803673981297627606300809366604383944529847249722772429552‘110.137150024126\ 
09**-11%1I) *Sinc[2*x] *Sinc[2*y]+*Sinc[2«*(Pi/2 + z)]* 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(0.217459857624473249371227156479072555995234204975348167275993025598390\, 
354896075223848626454676000545596862803701341814752739473720965256'119.742274\ 
52287303 + 0.2071224307785135957488884018401161870746128874382352270334148541\ 
5471007588844229459472955081172039612112305718772870796468670112717659'119.72\ 
112255783392+1) *Sinc[2*(-Pi + x)]*Sinc[2*y]*Sinc[2«(Pi/2 + z)]* 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(0.168479846318544109137192209611581965200533609192510417598381247551005\, 
72023328649780599630538233244980637958091552319431054989096659449 ‘119 .9587100\ 
4632026 - 2.45904746345181945478087403688042612106318208964681164968244151549\ 
95718526236179788730331668830841097259435797315960015828944 '110.12292900000756\ 
«*-11«I)*Sinc[2«(-Pi/2 + x)]*Sinc[2*y]*Sinc[2«(Pi/2 + z)]* 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(0.166354136590872828510637886592283232444698178893448264213072519828278\, 
682709393905723593898238481342814944904279014407802742988438467282'119.931437\ 
49362474 + 1.0956449142196077771443475597691993672626844117937360104749119329\ 
7576417159397871508236651797739473598703526202788478220099312'110.75007371620\ 
154**-10«I)*Sinc[2«*(Pi/2 + x)]*Sinc[2*y]*Sinc[2*(Pi/2 + z)]* 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(0.186345341470664018998489321264004606841328142760085539612509824018064\, 
599238973187472363293351044444291236296431420659851023267400455344'119.682906\ 
16731474 + 0.2153369145938252048882449189253766315044694272559421572760546082\ 
98159310841518589106257932002782887096931659379083857219881730369560792'119.7\ 
4570611327978%1) *Sinc[2*(Pi + x)]*Sinc[2*y]*Sinc[2«(Pi/2 + z)]+* 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 

(2.333941608580828413965197991381665156054054534546679357851203552183380\ 
69589152595741218060109506981480659551107428096200584154219049919'120.1440286\ 
2133585 + 0.20712242293141159524468872701564693463224825983551280754185705359\ 
9366921533928306004825761438499343201598540911771274733962451452798087'119.09\ 
216575269274«1) xSinc [2+*x] *Sinc[2*(-Pi + y)]*Sinc[2*(Pi/2 + z)]* 

Sinc [Sqrt [13] «* (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 

(0. 736700077191918384887328499004469933698184244908917234247710211169999\, 
003082540256102773138794004866173975165472861172422364325957933524'119.664051\ 
57253507 - 2.2848376292043797653267264396487586328354183666266499772131132612\ 
365977759386264809551704372394737454651346895779558960798381378'112.155616199\ 
76592**-8%I) *Sinc[2*(-Pi + x)]*Sinc[2«*(-Pi + y)]*Sinc[2«*(Pi/2 + z)]* 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(0.483476737336281762473481136675090555744916738096440406889308878206912\, 
874944404913024245241265835042479833578266150264697300133565655192'119.881008\ 
37720606 - 0.0072644528886998154747390578318258225060364557948249272324277945\ 
27544580356382002933754672326370999228798350983972393715857842465191873'118.0\ 
578357061581) *Sinc[2*(-Pi/2 + x)]*Sinc[2«*(-Pi + y)]*Sinc[2«*(Pi/2 + z)]« 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(0.462411266619871180689107350890032424290074425703841833836606728762863\, 
7441819656909480652959092115667246212551501522828211710686538138'119.82055989\ 
657688 - 3.151678412613061070438826380255856844825802834650733130910987717659\ 
799418205294328140814356889092547405194887379550023086160167'111.654073386509\ 
68x*-9%I) *Sinc[2*(Pi/2 + x)]*Sinc[2«*(-Pi + y)]*Sinc[2*(Pi/2 + z)]* 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 

(0.830873746221550812622402754473901409404015530897982591862214707181017\ 
788920305121236523451459671972961191528555569834874841376901702138'119.716368\ 
36118061 - 0.0265886002307871002685797927296967355489548406495281897087106937\ 
46670142443880921357912482066742361831197249473697975196222517217554944'118.2\ 
2152879904166%1)*Sinc[2*(Pi + x)]*Sinc[2«*(-Pi + y)]*Sinc[2«(Pi/2 + z)]* 

Sinc [Sqrt [13] «(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(0.168479833820322940186104313812982320209857500756005178297660406827627\, 
602839214997697069351353754690761748658800191193645864139975818993'119.958710\ 
0541445 - 2.06969568526470822421485664578530222832866039920604060743961271645\ 
64531564843806574733305232762045507191342085788424153036896 ‘110. 04806862295314\ 
4*-114I) *Sinc [2*x] *Sinc[2«*(-Pi/2 + y)]*Sinc[2*(Pi/2 + z)]* 

Since [Sqrt [13] *(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(0.439745972098371947541463361422182432057459559377704214448855731561019\, 
922823781726993401789720883870481198257694113737586591381830067411'119.842093\ 
8820151 + 0.00726444827025857811313134764063457769534106339269010237773392892\ 
919989374361332656172988754341911660168191667937294808461660882302823'118.060\ 
09464736131+*I) *Sinc([2*(-Pi + x)]*Sinc[2*(-Pi/2 + y)]*Sinc[2«*(Pi/2 + z)]«* 

Sinc [Sqrt [13] «(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(0.105614224188652159385436653589439186077977751502491245880364217721783\, 
071826733754909280231458033867147232999640855002708997764873200161'119.669116\ 
80506203 + 5.4122839105502228982419856077704375571751046809856281915230692196\ 
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4175321922495963896758593140706538160515021520067448119198586'111.37877496205\ 
545%*-10«*1I)*Sinc[2«*(-Pi/2 + x)]*Sinc[2«*(-Pi/2 + y)]*Sinc[2«(Pi/2 + z)l* 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(0.105614232526475726144729231623810654933964414362416350940142943082839\, 
49856816253127505407190266855440669181930546021957080584883082197'119.6691168\ 
3909366 + 6.04025998603681102986489464148529306865764846788120264652727796630\ 
717889745985655869458704805417189344065890156496206660688498'111.426450023633\ 
44%*-10«1) *Sinc[2«*(Pi/2 + x)]*Sinc[2*(-Pi/2 + y)]*Sinc[2«*(Pi/2 + z)]* 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(0.483476727830949711815928507801456693602111887613248737160633192267609\, 
642192913007065017571589322886522385483500453236704304416702714384'119.881008\ 
41640532 - 0.0072644468320481140218961844581395125274368884014727524720077717\ 
80251546339264735116535444404599153912100534114312388724683050498605229'118.0\ 
5783539180763*1I) *Sinc[2* (Pi + x)]*Sinc[2*(-Pi/2 + y)]*Sinc[2*(Pi/2 + z)]* 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(0.166354146945495718032334753410429889027019947771144760940866615733217\ 
560451126836717369698830750599626179800074980661622602215003566402'119.931437\ 
48188088 + 1.1345801328141794457381817766859854817144481156019915236657801210\ 
6372797798462492138041255762500670125635334037251099084770352'110.76523902480\ 
292%*-10«1)*Sinc[2*x] *Sinc[2*(Pi/2 + y)]*Sinc[2«*(Pi/2 + z)]* 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(0.462411258179664331975634908293479773133024028542655068920833246234079\ 
821345225412966342872938209630746855866059242856310689194127830201'119.820559\ 
84320144 - 4.2642135432903564540058268748869378588262852423905514633730988093\ 
24458995182106125498929026943452325235607983060620342433466048'111.7853703891\ 
934**-9+1) *Sinc[2*(-Pi + x)]*Sinc[2*(Pi/2 + y)]*Sinc[2*(Pi/2 + z)]* 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(0.105614216601848802264075604261561899633922791279421836911482838961202\ 
831206600197520325304374388065459148351049915440225933332653616709'119.669116\ 
77985676 + 6.0402597810234706967624514659857866667159250397752271816740942983\ 
0799464730774784307260807530533758262766672315854710248114557'111.42645001513\ 
947**-10*1)*Sinc[2*(-Pi/2 + x)]*Sinc[2«(Pi/2 + y)]*Sinc[2*(Pi/2 + z)]* 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(0. 052028027236033518655606896770048963062908237246802075353907160669039\, 
743791625899617145617962220012646328492497470328686752400400778049'119.343605\ 
39017969 - 1.9894399197419459475234326402380836823256929568716098739711052866\ 
04037450757627723120438143259846743732284958033752608938866553 ‘111.9260988594\ 
2711**-9«I) *Sinc[2*(Pi/2 + x)]*Sinc[2*(Pi/2 + y)]*Sinc[2*(Pi/2 + z)]* 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(0.470652989496978990141815191945925561071435537900684474279821564433608\, 
876489362942592666777819657025710755960141118316660942994808239211'119.836765\ 
53360267 + 3.0383206818146714206687012045892077933164445869248841537496815611\ 
58522671177800868431190374222009425622415731599148019144618383'111.6466983218\ 
9495x*-9x1)*Sinc[2* (Pi + x)]*Sinc[2«*(Pi/2 + y)]*Sinc[2«*(Pi/2 + z)]* 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 

(2.315021743571800568695368727272801950353769269597486183057281885773242\, 
140200312278800215691528773687380096547533537731221055006068447923'120.143252\ 
05676948 + 0.2153369224714828162733798959583625906211166745561748751059799785\ 
33545789334028927261189625913030404755344775074702341408489360156945355'119.1\ 
1181548429526«1) *Sinc[2«*x]*Sinc[2*(Pi + y)]*Sinc[2«*(Pi/2 + z)]* 

Since [Sqrt [13] «*(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 

(0.607407812704482343964029014653460309290403514363196125286424006767499\, 
765357996567556906699442690780800745154597174224820754332838248397'119.593650\ 
62768104 + 0.0265886046249564045939420171965123704252800771175920625704453932\ 
31648540823566920451521692323853182242720224403026456479803179061378519‘118.2\ 
3486580007857«1) *Sinc[2*(-Pi + x)]*Sinc[2*(Pi + y)]*Sinc[2*(Pi/2 + z)]«* 

Since [Sqrt [13] *(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(0.439745942116771490140332223995719789106027764844625394654975477286384\, 
026605300342161326183652620196404575105629309889818469965323942427'119.842093\ 
80192215 + 0.0072644545204391777826089062229722922432745006048073466922196273\ 
11064178801772388648185967346244305036441860705165839607454607084277566‘118.0\ 
6009497053608%1) *Sinc[2«*(-Pi/2 + x)]*Sinc[2«*(Pi + y)]*Sinc[2*(Pi/2 + z)]* 

Sinc [Sqrt [13] «(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(0.470653003022510145387511826936899386111495095761388800643945742190463\, 
744778630106510075283816332152703811325993491920049275808241508674'119.836765\ 
5954164 + 2.11931439013839752986109338979840882243204504977282229455358458103\ 
2711183240395663724007060698703821366815363689276016101088936'111.49026014834\ 
418%**-9%1)*Sinc[2«*(Pi/2 + x)]*Sinc[2«*(Pi + y)]*Sinc[2*(Pi/2 + z)]* 

Sinc [Sqrt [13] *(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 

(0. 682640420459841741381475830868280300945528313450377607631819864024630\, 
092439744992410555852479814126584692145073551798962037468112257685'119.632869\ 
22678103 + 1.9429385072705122651894124573598933480487781722284728083113564849\ 
801013357283897230761988179511755761633360941150089861890532197'112.087136282\ 
34241«*-8%I)*Sinc[2«* (Pi + x)]*Sinc[2*(Pi + y)]*Sinc[2«*(Pi/2 + z)]«* 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 

(0.129837901439901419173238631691092885989278126089524399958680738704208\, 
464449343857315371629862219860801157726055809071291934706913593935'120.147660\ 
63196038 - 5.2119110866219254811784178753029585112472080225149011769885295820\ 
990449581362149979062066015039304918748372648762626320239354'110.751256142746\ 
03%**-11*1) *Sinc[2*x] *Sinc[2*y]*Sinc[2* (Pi + z)]* 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(2..616956062409700809480461579709302041182785526156646238608578153970231\, 
743375999609895007893741349752979852013157649343786642834383237258'120.128181\ 
67420025 + 4.7809544763536245043159444563443530075396107483375459651768247660\ 
97833285175092308575716161100761334698621150323269521595877685 ‘111.3898998515\ 
3876**-9+1)*Sinc[2*(-Pi + x)]*Sinc[2*y]*Sinc[2*(Pi + z)]* 

Sinc [Sqrt [13] «* (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 

(2.333941584181926777792085968561292542973324462549924120422175278398514\, 
980246968498562491778164457521389309041276551405486116739471403133'120.144028\ 


185 
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62089501 + 0.2071224300651092969840772913342873862161183572433779655694717761\ 
5431322201311245398075209996585829022082340831506693368248893807469608'119.09\ 
2165771749921) *Sinc[2*(-Pi/2 + x)]*Sinc[2*y]*Sinc[2*(Pi + z)]+* 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 

(2.315021776974850019914557711667203118416559250337906395020342559204611\, 
882173385469567462754706453125472207558864014387035358866553388036'120.143252\ 
05738093 + 0.2153369152489645094649768345747736036356307592828865159176747791\ 
6126076343039608074590318025491627447209632399369176200144910029874722'119.11\ 
181546407389«1) xSinc[2*(Pi/2 + x)]*Sinc[2s*y]*Sinc[2*(Pi + z)]* 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(2.514990205097050261049118386053268732403182117128516039143657249541020\, 
106819545788814324098773234835518871741472791072728304908350954464'120.129684\ 
58369104 - 5.2235136454775488112823103430124438409708706882869003296572765520\ 
79820310826376206878209884155404869899384248207619134349025836'111.4471110192\ 
6123**-9s1)*Sinc([2* (Pi + x)]*Sinc[2*y]*Sinc[2*(Pi + z)]* 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(2.616956144923211990414549672501596615617334441169548988379432305651054\, 
141902165088010016335419890985696370308216063533674130742589103094'120.128181\ 
67446073 + 4.6587129531898187009980414416109811748257459666395381082509049033\ 
93231880032883146449407250482628413468310440202128125695677293'111.3786511818\ 
86%*-941I) *Sinc[2*x] «Sinc[2*(-Pi + y)]*Sinc[2*(Pi + z)]« 

Sinc [Sqrt [13] *(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(4.155888291862233173111771076029301166690368491582926513453520760631718\, 
65867574788346184311956897000511420389950913354472091087995950569 ‘119 .9086973\ 
5692618 + 2.01468180074095944754559039367319051042555342930612012527982165874\ 
13529215456351558357574106759449893773026277259274824752480248 ‘111 .5942399548\ 
2955**-8xI)*Sinc[2*(-Pi + x)]*Sinc[2*(-Pi + y)]*Sinc[2*(Pi + z)]+* 

Sinc [Sqrt [13] «(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 

(0. 830873657333116366768307070672066115300532427060348910203591830528641\, 
643184436717902535614939200757339763282958245963032348564101434762'119.716368\ 
32088876 - 0.0265885896644372029003458214423536333970969658365542586125440173\ 
64967249705691143355230229037145782898300572693105876371206534433102564'118.2\ 
2152863262214%1) *Sinc[2«*(-Pi/2 + x)]*Sinc[2«*(-Pi + y)]*Sinc[2*(Pi + z)]«* 

Sinc [Sqrt [13] «(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 

(0.607407894326608189045673673329780331141992175765700094900352503923154\, 
417331815812585580412910847026247291053009636262803882218189873207'119.593650\ 
69471396 + 0.0265885908769224406520612199682746223600603918072562629451358987\ 
650465384 95232307620322259052220744136534463144240476381121240195285198'118.2\ 
3486558419347%1)*Sinc[2*(Pi/2 + x)]*Sinc[2«*(-Pi + y)]*Sinc([2«*(Pi + z)]* 

Since [Sqrt [13] «*(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(4.155888701555051115545675942926583026118134832307743708380846270139350\, 
001189950888552777830182631270173097067788866436688632860195106823'119.908697\ 
38003211 + 2.7566692920494549049850295746430159116636767820893930941682639297\ 
986732855099089458455049039171459762772055972007735517799758099'111.730418140\ 
23314%*-8%I)*Sinc[2« (Pi + x)]*Sinc[2*(-Pi + y)]*Sinc[2*(Pi + z)]* 

Sinc [Sqrt [13] *(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(0.217459889997323411368474341431368736228383160221230614619492994740975\, 
372272401032265872784012971945323384696986768518672819232081553395'119.742274\ 
59090969 + 0.2071224235517205642246030963749722815785522194218814940070742953\ 
8326615368297589353922650699287841563375596008928235819757022715816062'119.72\ 
11225460648+I) *Sinc [2*x] *Sinc[2*(-Pi/2 + y)]*Sinc[2*(Pi + z)]* 

Sinc [Sqrt [13] «* (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 

(0.607407761187541020884335677148993474329512031727300927705952366192071\ 
27243839378595474980569751019823283899815672567600966762680173385 ‘119 .5936505\ 
9457835 + 0.02658861662734136713493356280227923119261781274569305772351126105\ 
691310312693407128085006683576370587825668338600424674296638284544712'118.234\ 
86599985551*I) *Sinc[2*(-Pi + x)]*Sinc[2*(-Pi/2 + y)]*Sinc[2*(Pi + z)]* 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(0.462411240834670064278681572181508972160161633904654246581748391467328\, 
227361801728295735400663974995900292005595632167810573263725093905'119.820559\ 
847598 + 6.014227237561471192976321783837659258858994324260759533812712153756\ 
455556385992937087453468109923785888025879556983536165514152 ‘111. 934711297886\ 
**-9%1I) *Sinc[2«(-Pi/2 + x)]*Sinc[2«*(-Pi/2 + y)]*Sinc[2*(Pi + z)]* 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(0.439745964075582596009778819836950049953730220557460050855807282237296\, 
886321203593304252588682576440817444615103325951666017712446061974'119.842093\ 
8574712 + 0.00726445087127184729453996073596440090478901634214718891062565354\ 
6256764064136945028507368228395331521407956125083277341206833790912289'118.06\ 
009478623851+*1) *Sinc[2*(Pi/2 + x)]*Sinc[2*(-Pi/2 + y)]*Sinc[2*(Pi + z)]* 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 

(0. 736699938080890655738941528437015226209412278696836380901969734162028\, 
020471256144188251307015979939118754400108572665073438644350671623'119.664051\ 
49878013 + 1.4938988715563017177194263617649635551013593970891200391864575344\ 
041697870125204635907310280916066470407906303221092698597461009'111.971082064\ 
6393x*-8%1)*Sinc[2* (Pi + x)]*Sinc[2«*(-Pi/2 + y)]*Sinc[2«(Pi + z)]* 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(0.186345315728302577311297170001677547862166861340016356204573155061165\, 
401971679286886372912341268145236996077337273342523503457627220409'119.682906\ 
11216212 + 0.2153369217232480221620558784802525803827557281198083507176750916\ 
70146278948372062609131601647377274922032455278478985195666236739684653'119.7\ 
4570613250074*1) *Sinc [2*x] *Sinc[2*(Pi/2 + y)]*Sinc[2*(Pi + z)]* 

Sinc [Sqrt [13] «* (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 

(0.830873751985441101465119011130888976763503730254737119683319587959494\, 
091722320348403732753279010094788316768963886901947548781024424798'119.716368\ 
35807288 - 0.0265886153853832593625468919994324773411415616003239301787593712\ 
59549251009861967855675150955361227300761921219038049868044926187301529'118.2\ 
2152904045416«1) *Sinc[2*(-Pi + x)]*Sinc[2«*(Pi/2 + y)]*Sinc[2*(Pi + z)]* 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(0.483476735636947455548169556892269598104315034370332856261903587498791\, 
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947083664512597538729521691131912209479783170115728709944220751518'119.881008\ 
39812425 - 0.0072644493686803812010237796207538996312760205083639834012069262\ 
1802930445367647956784881659435108814272101887436736098256396185906744'118.05\ 
783551816349+1) *Sinc[2*(-Pi/2 + x)]*Sinc[2*(Pi/2 + y)]*Sinc[2*(Pi + z)]+* 

Sinc [Sqrt [13] *(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(0.470653026584668823886397312232240232821393528656380040057903272300164\, 
336440035698913804795396768463203364756881401876959397625693142343'119.836765\ 
59117276 - 7.3866987375571024761105154348674733885049815884294159213639874371\ 
1863800480949828342919704109838400354612967286444995604377676'112.03251512228\ 
333%*-941)+*Sinc[2*(Pi/2 + x)]*Sinc[2«*(Pi/2 + y)]*Sinc[2*(Pi + z)]* 

Since [Sqrt [13] «(-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 

(0. 682640590224455998777089725655870806682766096925076066374221725297588\, 
572536812721554864133757175831277225461632995394193650034984150946'119.632869\ 
32451264 - 1.6515139169502545320852043454551078811644372820873876412210489310\ 
308017277120573732816390292258224812463814388340269290660779739 112 .016559454\ 
13678**-8xI)*Sinc[2*(Pi + x)]*Sinc[2«*(Pi/2 + y)]*Sinc[2*(Pi + z)]* 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(2.514990128168997713698787918820431987366273208718606196584138381373088\, 
614526779100814024078062236859197569585878965885349577437892455829'120.129684\ 
58372102 - 5.3457553494850514239904783116756118397687013227101552248428133111\ 
85121220264655169351397230834384743288890510350637756570203828 ‘111 .4571573782\ 
4113%*-9%I)*Sinc[2*x]*Sinc[2«* (Pi + y)]*Sinc[2*(Pi + z)]* 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(4.155887970911819760212885071394739748629385136701664781340314440321808\, 
90626497320547000010834541889342496797311726945156854157442225723 ‘119 .9086973\ 
391237 + 2.756669134241974060585838447298303179683279902890436110466916493501\ 
3970759042424430949526643862671318572854279962570453025371676'111.73041815081\ 
619**-8%1I) *Sinc[2*(-Pi + x)]*Sinc[2*(Pi + y)]+*Sinc[2«*(Pi + z)]* 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 

(0. 736699865694632561740244224582823682312174267197114239669244500768470\, 
067598500866936174868805930831398977047617543843075950538425111648'119.664051\ 
45082277 + 1.6345550793681823715310361333787635870068946829128833519690519499\ 
524130854900885058869475460452484489721087768625196233003280556'112.010160419\ 
66456%*-8x1)*Sinc[2«*(-Pi/2 + x)]*Sinc[2*(Pi + y)]*Sinc[2*(Pi + z)]«* 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 

(0. 682640608026945066344664314805183154340580712634344993013410184905382\ 
257486846192921024374755156348196678955446576368132789132514965846 '119.632869\ 
33276035 - 1.7951173840082836646487381784227675905582972855882647114891101439\ 
042132260811733497489918486609341674393005596763170859705467548'112.052770065\ 
97952**-8*I)*Sinc[2*(Pi/2 + x)]*Sinc[2«*(Pi + y)]*Sinc[2«*(Pi + z)]«* 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] + 

(3 .598731026324083378492404777085418967158236396970798933693951258753591\, 
646300032120916388521477367948758047563249007387312295838166775902'119.870197\ 
98485744 - 7.3414258266722440252904522088280396381740033664318891180872260618\ 
577533635738519569667353423559308075802429251757582821820532469 '112.179829012\ 
00672**-8*1I)*Sinc[2*(Pi + x)]*Sinc[2*(Pi + y)]*Sinc[2*(Pi + z)]* 

Sinc [Sqrt [13] * (-(Pi/Sqrt[13]) + Log[t/(1.**-6 - t)])] - 

(0. 305218588100103677728570389362097026639475796392640401436629855172362\, 
804271698535667555925584670307642322066526680750468841014897601314'120.150514\ 
99783199 - 6.3021954018894104438999211101776878581647061330134778624561954901\ 
3526005524116211411467662865728786977854499644510130299656118'111.46539588330\ 
694%*-10«1) *«Sinc [2*x] *Sinc[2*y] *Sinc[2*z] « 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 

(0.129838186818138815172749306034904385624288384432272409475034086884927\, 
104852223473372690069946190823866236016741909046742207793257243361'120.147660\ 
44744226 + 2.1863401885301832192093048980080291837626849717210365336325452623\ 
68140970417563348927933031922868493968639462202701463801427795 ‘112.3739757433\ 
7642**-9xI)*Sinc[2*(-Pi + x)]*Sinc[2+*y]*Sinc[2*z]* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 

(0.444712031422351859286232407662645829417974326762162632437831953841557\, 
231280338952529153778016055258466142442584944008237380783731224691'120.150509\ 
50254667 + 2.2218622156314476010210413150381282822240545008286375672022104257\ 
140999804503907582317509270790208662975084903381689863169679 ‘110. 849147746888\ 
02%*-10«1) *Sinc[2*(-Pi/2 + x)]*Sinc[2«*y] *Sinc[2«z] * 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 

(0.444712031422352007425829180458432434972922182006831135725077434424928\, 
163681502523320834454609215638145630151432514602668458072331236219'120.150509\ 
5025467 + 2.22186203090241043949622271286436651734268183750763469298619126990\ 
72171749413022658251290234691018494314720633156416354540574 '110.84914771078013\ 
**-1041) *Sinc[2*(Pi/2 + x)]*Sinc[2*y]*Sinc[2*z]* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 

(0.129838186818138992363950529606714005611666373215347427695595858025066\, 
92745610692818022118997015803689822813185335701082500817932492445 ‘120.1476604\ 
4744225 + 2.18634023157651932421238705497604303746098793940546179955904762221\ 
7650887672856968855807755480651929550331338829548340907394601'112.37397575192\ 
712%*-9«I)*Sinc[2* (Pi + x)]*Sinc[2«*y] *Sinc[2«*z] « 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 

(0.129838181942537836463895021352868719506022971650630652794051714892388\, 
259600995128553222484489215293021120937674105265635937133086239128'120.147660\ 
5888717 - 3.56977819018890845835842655227564352895197708118179948491856519735\ 
6448365511198517533356871281508661879102813717204435889458387'112.58689939507\ 
678%*-9x1) *Sinc [2*x] *Sinc[2*(-Pi + y)]*Sinc[2«z]* 

Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(2.514995166334721933254619743713045669973855335883516623737970626080834\, 
473021231097120846692467341814057512130872371355908313462471260725'120.129684\ 
58929438 - 3.4345271144496330538501041760739001868510720994341532640804570955\ 
924036716825801375409210120403107558680668863353098752292032056'112.265014383\ 
92532**-8+I)*Sinc[2*(-Pi + x)]*Sinc[2«*(-Pi + y)]*Sinc[2«z]* 

Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 


187 


188 


(0.186345652397372165430914366159509398563785116537188480932382880302197\ 
835573123641892023709572892509400014140472158356043817074802200266'119.682906\ 
09223858 + 0.2153373353508194683145438297166387506631539577898710672899316055\ 
97430959298869883199140878362098454525650199772861104885007052293788229'119.7\ 
4570616214945*1I) *Sinc[2*(-Pi/2 + x)]*Sinc[2*(-Pi + y)]*Sinc[2+*z]* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(0.217460394368719709453214596961760304327480841635863401813133811818557\ 
653739795050003307877739187783935360425438473363772077445978311134'119.742274\ 
72090216 + 0.2071228125790221206887605424336993690283218738921438614962143825\ 
69257754734182432151081080050326474952135890248466088716662127835836818'119.7\ 
2112248447796«1) *Sinc[2*(Pi/2 + x)]*Sinc[2«*(-Pi + y)]*Sinc[2«z]* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(2.616961688444719657770980174539245217843969904875016706116488723630697\, 
335026546319834193797187447177530650406559006072124676207542774794'120.128181\ 
67789794 + 3.4066043925782711012585063767605731118928434011189511649504239348\ 
172321918252869552292121218278202356909319481078912938860807723'112.242706015\ 
23105«*-8xI)*Sinc[2«*(Pi + x)]*Sinc[2«*(-Pi + y)]*Sinc[2«z]* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 

(0.444712017245185796768380961746256480145153339686625254058831131739403\, 
906164933988572539187672809153537415157543848051134204379566450612'120.150509\ 
50258032 + 8.4702148707684364363886783103321359470175657502411823179888989085\ 
8928517495835577334322121081756405851932146031977045223204437'111.43032506480\ 
448%*-10«1) *Sinc[2*x] *Sinc[2«*(-Pi/2 + y)]*Sinc[2«*z]* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 

(2.315026313824762589607682423936923674482029878842183830026425903300924\, 
90221025382666435008922239743163211586956736362837818950827285772 '120.1432520\ 
5639484 + 0.21533733612608883725451492954778255190048834267049511020667710911\ 
7562180293307274592354715670725930235727645192340870101906017677738335'119.11\ 
1815460812621) *Sinc [2+ (-Pi + x)]*Sinc[2+(-Pi/2 + y)]*Sinc[2*z]« 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(0.166354486063591913842868808496763308599501834917172238593395921314384\, 
962734212099182414403463446856074958683931855314206366012113457631'119.931437\ 
41004288 + 6.1593200868473246592234216894357194456610950070903809425534969846\ 
96532696583151922205687054572749684361262062996590798113051389'112.4999356671\ 
5045**-9*I)*Sinc[2*(-Pi/2 + x)]*Sinc[2*(-Pi/2 + y)]+*Sinc[2*z]* 

Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(0. 168480121097900879103542397874180884390463922194757670047255974989514\, 
883146212499884475747522082877370734289633513208553085547668642735'119.958709\ 
98959502 - 5.1136844864428670190796500901271103864299131878050469697335724991\ 
06741174420105970730956735743269499402715104374439492094210786 ‘112 .4408952522\ 
1034%*-9*I)*Sinc[2*(Pi/2 + x)]*Sinc[2«*(-Pi/2 + y)]«*Sinc[2«*z]* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 

(2.333946336464519733429403628181501672126875690378414891251771958897411\ 
411297374639184562732022296441798194492505047788380776938882525824'120.144028\ 
62296417 + 0.2071228150768261312331301755769503233631759240598651671315946461\ 
23566696699700661199447406670048840285442921930876653800695349860201548'119.0\ 
9216569681831*1I) *Sinc[2* (Pi + x)]*Sinc[2*(-Pi/2 + y)]*Sinc[2*z]* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 

(0.444712017245185825574561719268266599141338773445092172387851432531077\ 
745443106236102028697379954697871309420117365425708872056864215743 '120.150509\ 
50258033 + 8.4702145929539992382819888476004941090902448609930905483355702690\ 
3985794694933664031618674333958782546563646098669289337664422'111.43032505056\ 
006**-10«1) *Sinc[2*x] *Sinc[2*(Pi/2 + y)]*Sinc[2«z]* 

Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 

(2.333946336464519366514204609295748558185471426687772082194767378630437\, 
709614283225357117794150323257652320004919094698570805576745274866 '120.144028\ 
62296417 + 0.2071228150768260091413009064662716529803134736955326544231311824\ 
60845115386830012193115737494124526494374360398493715996755489379892431'119.0\ 
9216569681831*1)*Sinc[2*(-Pi + x)]*Sinc[2*(Pi/2 + y)]*Sinc[2«z]* 

Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(0. 168480121097901063367145005606995544842137398782090986798336027790890\, 
734394083553024633685057499845846916077795700760890475386802607947'119.958709\ 
98959504 - 5.1136844612572352057465483325295554316292341038811296233077977949\ 
46388744971137171851571373873712886814111959664388008809405654‘112.4408952500\ 
714%*-9x1)*Sinc[2*(-Pi/2 + x)]*Sinc[2«*(Pi/2 + y)]*Sinc[2«*z]«* 

Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(0.166354486063591757212084495630379233332169228353076312416714304832883\, 
233076642945052800521902150204482941636422546439699445529548141067'119.931437\ 
41004288 + 6.1593200859873678279090545211373439425352386537455112557340699664\ 
10793081879917223489466828094409316362336816621273760735569306 ‘112 .4999356670\ 
8983x*-9%1)*Sinc[2*(Pi/2 + x)]*Sinc[2*(Pi/2 + y)]*Sinc[2+*z]* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 

(2.315026313824762865246208156546440182026029969105596834257295542889577\, 
224245246370983426772057815857194506249796771575607921792679768026 ‘120 .143252\ 
05639484 + 0.2153373361260888835158935268166412523775021521276384538006293821\ 
99414052837811335969934992191810509541140318199550666155060132325772776'119.1\ 
1181546081262«1I)*Sinc[2«* (Pi + x)]*Sinc[2«*(Pi/2 + y)]*Sinc[2*z]* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 

(0.129838181942537820884089868511099312016290948417439741214367580680935\, 
792163157554629364999619305510436195146956445591599607070666903855'120.147660\ 
5888717 - 3.56977821529109371003352820780061567042129604794021640916664818102\ 
4348899686318756555333670795487758418182332869400776078859746 ‘112. 58689939813\ 
067%*-9«1) *Sinc[2*x]«Sinc[2*(Pi + y)]*Sinc[2«*z]« 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(2.616961688444719614777290547010335502448170141388677940268378807709880\, 
5070970294980006908234610478032861850639591852908100926147550339'120.12818167\ 
789794 + 3.406604413879638525358400142852117065134505725733875769799198512101\ 
2633297795460691639897842096762685228492597298217790501767452'112.24270601794\ 
667**-8*I) *Sinc[2*(-Pi + x)]*Sinc[2*(Pi + y)]*Sinc[2«*z]* 


B_ Result Notes 


B.1 


Example File of Results 


Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(0.217460394368719870187125377757005451862298523959597760717754794299498\, 
239936967273829124396821192711380308849798803771840925888356086796'119.742274\ 
72090215 + 0.2071228125790221016743744240114934674661125665582420364501426444\ 
94987193923196149685306886004500875101399306857427970871701286842348581'119.7\ 
2112248447796*1) *Sinc[2*(-Pi/2 + x)]*Sinc[2*(Pi + y)]*Sinc[2*z]* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(0.186345652397372100117573361218277620625649970831640125504760137355427\, 
725872550785817684369996616045117412479851807369879871473727724545'119.682906\ 
09223858 + 0.2153373353508194989208244071951712072318046669003397851914607625\ 
20365556876176611582031112140630530594620449146790112606668373495954116'119.7\ 
4570616214945*1) *Sinc[2*(Pi/2 + x)]*Sinc[2«*(Pi + y)]*Sinc[2«z]* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(2.514995166334721986703706366320202809705829938755208350868916293351279\, 
201441093769799773555095487024328496271540239764949494876320815996'120.129684\ 
58929437 - 3.4345271088110465920493773114574959670256475232070350754319339642\ 
674588781617707164728326967314520277619219640771203332548475054'112.265014383\ 
2123%*-8+1I)*Sinc[2*(Pi + x)]*Sinc[2«*(Pi + y)]*Sinc[2*z]* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 

(0.129838197739212509622871221063951736976509645715344807231248619920663\, 
111208020303309588187103934638649855649620339470608272159596133822'120.147660\ 
56351948 - 1.3793451839175053013535036678453941156592814370780715313662789747\ 
8739649954627330726890098355251637078947752403739625648218802'111.17393104787\ 
168**-10*I) #Sinc [2*x] *Sinc[2*y] *Sinc[2*(-Pi + z)]+ 

Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(2.514995329285328901867457699390622300773988080179094886404980875289954\, 
922312727202241398508251557119136901752726574710204906361858944984 '120.129684\ 
58480155 - 2.7301865229446049849285497603460577712044282097440081159218097783\ 
161924108846884150067222729421628477153375483565580487944128621 '112.165339720\ 
47003«*-8xI)*Sinc[2«*(-Pi + x)]*Sinc[2«*y]*Sinc[2«*(-Pi + z)]* 

Sinc [Sqrt [13] «(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 

(2.315026471682001423716837848803376809652941060087394672372240821869501\, 
192337169663871297988663053008805571702630151669327766858216197651'120.143252\ 
05889897 + 0.2153373178271227819310958455796616208731595410469101625422471264\ 
67220679542442158829886296697361977192690907547389776635684862835575722°119.1\ 
1181539679752*1I) *Sinc[2*(-Pi/2 + x)]*Sinc[2*y]+*Sinc[2*(-Pi + z)]* 

Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 

(2.333946277389652329490079653156813416032688098051181825925477283498356\, 
195151157681792178938913780459687256882150429380957406298979913516'120.144028\ 
62184276 + 0.2071228355195149155032965592948281454274005102285548672259189701\ 
72121346440998513170953710978075771254710409813628354186570404937286058'119.0\ 
9216574955357*1) *Sinc[2*(Pi/2 + x)]*Sinc[2«*y]*Sinc[2«*(-Pi + z)]* 

Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(2.616961332192118567708200016428987629240237918228947598515857095923403\, 
92252743452371602697586107202652117981368175418193596516039437405‘120.1281816\ 
7963985 + 2.80681354794356070007620495234828444493601839156728520394863519706\ 
13649402249745822774393605589397538014345525780575317059519549‘112.1585979381\ 
3623%*-841I)*Sinc[2* (Pi + x)]*Sinc[2*y]*Sinc[2«(-Pi + z)]* 

Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(2.514994892621752035023749569884324702193145046102836924853874541820166\, 
958497813314612003300427444562606087062538472203351464537571600367'120.129684\ 
58497944 - 3.0850992032107528901980155252885033934984208614173783114565137638\ 
228629162971897410622548107495400222658738269270684771404817747'112.218416611\ 
13187**-8xI) *Sinc [2*x]*Sinc[2*(-Pi + y)]*Sinc[2*(-Pi + z)]* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(3 .598735888376101844945819305804870279169704762581162902803507430769878\, 
980745225065313413813085126409627727185598354656549234410950365634'119.870197\ 
82302441 - 4.0627873024958276751401056368467923960864911497572769309562324922\ 
7740750017112664228836846114390432972900311715664589210791158135'112.92287193\ 
459545**-7*I) *Sinc[2*(-Pi + x)]*Sinc([2*(-Pi + y)]*Sinc[2*(-Pi + z)]* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 

(0. 682642148508716904394748778428565734753392128791414941994164148862507\, 
073111728446245450580155613123132780509926918515483221724750631326'119.632869\ 
3875421 - 9.93363132069693751807165681841328378826909529123173702899256114603\ 
19285645207161775030160647653729618780503706167329354106719073'112.7957843254\ 
8502**-8%1)*Sinc[2*(-Pi/2 + x)]*Sinc[2*(-Pi + y)]*Sinc[2*(-Pi + z)]* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 

(0. 736701015231880093219911672299825518851069355132328211492614256943935\, 
490737708183194038657277790600090291469626835208263080267822669666'119.664051\ 
23187508 + 9.0479908147557396406580272767563246179423668105875626383800641788\ 
72.9666031249843070707231005697650448312179745473469638041136339'112.753312114\ 
56297«*-8x1) *Sinc[2*(Pi/2 + x)]*Sinc([2*(-Pi + y)]*Sinc[2*(-Pi + z)]* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(4.155895360882637725820009049707729902014074820544147071213575591673839\, 
63109001028763162634882452172352498602300514094583207364317132024 ‘119 .9086972\ 
8786451 + 1.52607139966175101898453209241974427714815886261424034615265074910\ 
64892623064867836348272601944804295834134946372198195248307957 ‘112 .4736075369\ 
6329%*-7*I)*Sinc([2* (Pi + x)]*Sinc[2*(-Pi + y)]*Sinc[2*(-Pi + z)]* 

Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(0.186345578135267262501153649901907796464980196204362683989980700342573\, 
309193625824338289639176019194077668099393208163448358266077240195'119.682905\ 
89265527 + 0.2153373538191994369159224499647010284464458129938901169670151812\ 
82816659260482362626534269355763996115979029352210094713022141492345469'119.7\ 
4570617288758*1) *Sinc [2+*x] *Sinc[2*(-Pi/2 + y)]*Sinc[2«*(-Pi + z)]«* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 

(0. 682642049039462647434987671735650774957226793081419467171915328249319\, 
437789854367500783799581105194199965611663504901641215183209580634'119.632869\ 
34382992 - 9.1144540635332519555103628675842822578491450999009085008284513967\ 
741628403670300832468676000959285961535772406717344385973649407'112.758406968\ 


189 


190 B_ Result Notes 


06335**-8x1I)*Sinc[2«*(-Pi + x)]*Sinc[2«*(-Pi/2 + y)]*Sinc[2*(-Pi + z)]* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(0.470654020810855022642566235934391943143457368237854887760437313031177\ 
987696157928308211825266138524753249832202030249035234862512110666'119.836765\ 
50062575 - 4.0960832795399097553131381989688495514144803861209414471873647169\ 
944759885023681153246277830588079907939799309667714734173581952'112.776432505\ 
31378%*-8%I) *Sinc[2«*(-Pi/2 + x)]*Sinc[2«*(-Pi/2 + y)]*Sinc[2«*(-Pi + z)]* 

Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(0.483477798777987032790286659174233032790203023179019570213037371151355\ 
946173320759541511174112331385480369193991588321211629690974248643'119.881008\ 
54327097 - 0.0072644733032702529305525618736807485672335787003915616928740502\ 
17906038701183887532665560961276343904696076588196577848991471442215829'118.0\ 
5783613921162+1)*Sinc[2«*(Pi/2 + x)]*Sinc[2«*(-Pi/2 + y)]*Sinc[2*(-Pi + z)]* 

Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 

(0. 830876104375286234843142360587131065830885679263526815321907544384341\, 
228734973152246952583204866151057125567817453400764826925850277329'119.716368\ 
68212029 - 0.0265887553902630166176126564766431553871650007685428862082764257\ 
84149035771950130338189353551385337590677613143793640862875689964559663'118.2\ 
2153042173109«1) *Sinc[2*(Pi + x)]*Sinc[2*(-Pi/2 + y)]*Sinc([2«*(-Pi + z)]« 

Sinc [Sqrt [13] * (Pi/Sgrt [13] + Log[t/(1.**-6 - t)])] + 

(0.217460479548246884133362906532699488845451325010273753573780806907045\, 
550529130894294132505356264049475170543460309856415248696501421391'119.742274\ 
86279555 + 0.2071227996303275483404560650269922388452908594521289413100327785\ 
6905594601235988605155375889779023598073449353011944303349161585464274'119.72\ 
11224291069+I) *Sinc [2*x] *Sinc[2*(Pi/2 + y)]*Sinc[2*(-Pi + z)]* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 

(0. 736701414918218809863759139619609775526406609185704361598914958782170\, 
177241033080269425473354077752047439418408109402681746 942598391475 '119.664051\ 
49926902 + 8.2941625311541683731789397998912668831208877188858798080193710100\ 
644975637611663955402200169034308759945215488488585101554089101'112.715532536\ 
78212«*-8x1I)*Sinc[2«*(-Pi + x)]*Sinc[2«*(Pi/2 + y)]*Sinc[2*(-Pi + z)]* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(0.439746796069920604076417957693425365481036092531387734669632821867067\ 
857001558644314355424268307825466341426847119348117085506920142536'119.842093\ 
9158987 + 0.00726448146219851420158420193044046616691598189253811635426648705\ 
0143750853892931303342070516546829786836272910541527489487050801154632'118.06\ 
009585181619+I) *Sinc[2*(-Pi/2 + x)]*Sinc[2*(Pi/2 + y)]*Sinc[2*(-Pi + z)]* 

Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(0.462412071796418139021287645945454054968615475771267578563390218872123\, 
246039069076998968376970901305559048662075211632217491070857288953 '119.820559\ 
63487956 + 3.3207402949284013984674536255913101254356269251420813766206204427\ 
359962809006967768393020323994200458111845922917385363370103392'112.676765383\ 
63091**-8%I) *Sinc[2«*(Pi/2 + x)]*Sinc([2*(Pi/2 + y)]*Sinc[2*(-Pi + z)]* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 

(0.607408257964641665281365653282417520153136807318101554467323754293058\, 
083490968536096599198728554922100349171228163998832303907294679393'119.593650\ 
12260324 + 0.0265887627844680736037928708851737888054914155718096777244089189\ 
42984444338046073765146925506877536779823053285405215048915746203635721'118.2\ 
3486755998867*1)*Sinc[2*(Pi + x)]*Sinc[2*(Pi/2 + y)]*Sinc[2*(-Pi + z)]* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(2..616961777968192316949614513333827249524626322271810912333718803734768\, 
362546312401854942963865399047576918204199558613131625553881187002'120.128181\ 
68108356 + 2.4519019361198124770960107595004371133707947924725909645102993425\ 
049580328067525459908265176885549315383524410786380548789344476'112.099887398\ 
05974«*-8%I) *Sinc[2*x] *Sinc[2* (Pi + y)]*Sinc[2«*(-Pi + z)]* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(4.155899404675121706380316324264420075943987167963367242057193566139244\, 
311277910199709097324251968142113278424748261059057433198117899451'119.908697\ 
51427421 + 1.5260718935629530976384047440172282186732342286440559979880754879\ 
9208632076351421438042667134682057510119580392269411594557221996'112.47360748\ 
134956**-7*1I) *Sinc[2*(-Pi + x)]*Sinc[2*(Pi + y)]*Sinc[2«*(-Pi + z)]* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 

(0. 607408995771525204562429664602592957070935295486219426548044790109114\, 
297730717656767374833261698662550585625218302301351149938168381824'119.593650\ 
67486807 + 0.0265886200224066470362654263066224884311622488418978891368790391\ 
34561938853439453735363286484185391234710342679417042649000816977820161'118.2\ 
3486525287727*1) *Sinc[2*(-Pi/2 + x)]*Sinc[2*(Pi + y)]*Sinc[2*(-Pi + z)]+* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 

(0.830875581456108599216778516405776010432086887452714655730156583577722\, 
155810896564988936746430042025773155166940536777607933432897472153'119.716368\ 
47429109 - 0.0265886132816874657223442785613043621004316150003989253430164022\ 
61673232835080566659910320313276587548117039433647867517679251648233345'118.2\ 
2152816605474«1)*Sinc[2*(Pi/2 + x)]*Sinc[2«*(Pi + y)]*Sinc[2«*(-Pi + z)]* 

Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(4.155897137204208196936393973873377051622814568512458077826722257111042\ 
567141588060640460129999190933133713517304426828809515114408117335'119.908697\ 
38639329 + 1.1153726644490495422408329374258123657780122702652527270180584424\ 
4809334569400580516768380024848888823536814537451651233484587327'112.33745259\ 
321495**-7*I) *Sinc[2*(Pi + x)]*Sinc[2*(Pi + y)]*Sinc[2*(-Pi + z)]* 

Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 

(0.444712026410148129692232266817189330156824314579145521788916928120926\, 
329798325350511900268540533255960902253117186041034707714774986782'120.150509\ 
50257991 + 2.4128467471064817062625891666767760769171117373821676496361069534\ 
9796975245653005331546431965499443472058467958284807918015014 ‘110. 88496036668\ 
808**-10*1) *Sinc[2*x] *Sinc[2*y]*Sinc[2«(-Pi/2 + z)]* 

Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(0.186345717696572562112306297697779864681332891940873562601809613762768\, 
984512966203874670409609304654534241194827346077062863131766254518'119.682906\ 
19201424 + 0.2153373153780797777577470752092408910756961370094948965300324319\ 


B.1 


Example File of Results 


68064252531831028120426704371934761712337059671297888998424979033975722'119.7\ 
4570606945856+1) *Sinc[2«(-Pi + x)]*Sinc[2*y]*Sinc[2«(-Pi/2 + z)]* 

Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(0.166354426755412914300457523116176154495626548186671997072059538723121\ 
243696475154368431337079620208045966991220040234737847825766272453'119.931437\ 
38616047 + 5.6256608803027947239295429539948541653519022211511825871497537677\ 
9175977741326610965523140861471217266206771368545528214655661'111.46057657303\ 
001**-10«*1)*Sinc[2*(-Pi/2 + x)]*Sinc[2*y]*Sinc[2«(-Pi/2 + z)]* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(0. 168480188005244122595399017153778999156321017496452325340263342764046\, 
665986532365855024032665607598632011697819102841398096181482017488'119.958710\ 
00609154 - 1.8001468088931798686788270110462942370497615997082340849907322766\ 
1191010989306811468215646965561108719060943190195154520111079'110.98746909255\ 
762**-10*1I) *Sinc[2+*(Pi/2 + x)]*Sinc[2*y] *Sinc[2*(-Pi/2 + z)]* 

Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(0.217460297467140290622110119571119143106178376791804725638371450712277\ 
974165602753428169995039787963235612337161115564793530133255068061'119.742274\ 
48140866 + 0.2071228406446111927897052344243442312303013487069398594132898494\ 
03842014492269285971763239204232393459715145430300558301839755827783029'119.7\ 
2112249735642+1) *Sinc([2« (Pi + x)]*Sinc[2+*y] *Sinc[2«(-Pi/2 + z)]«* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 

(2.315026294512691015689243546962149364846774589069151351218543098584659\, 
141560516888916757060803465413841601324096056080829841400228334597'120.143252\ 
05555281 + 0.2153373591492161848722020680701382053751391944334095603107019541\ 
17310538684170407865623482484009435784970237418868888802326962673360566'119.1\ 
1181551002677*1) *Sinc [2*x] *Sinc[2*(-Pi + y)]*Sinc[2*(-Pi/2 + z)]* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 

(0. 682641090184491996570964606438505258497071845276180064376524760228609\, 
912952704521782903363245893387563713712168543399200203748039238573'119.632868\ 
79837788 + 1.0726300843725304730405491623724851854115373233763053217420244032\ 
6987831648068274419411943486496131340785488777358241778917304558'112.82912634\ 
57636«*-7*I)*Sinc[2*(-Pi + x)]*Sinc[2«*(-Pi + y)]*Sinc[2«(-Pi/2 + z)]«* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(0.470653888977005732851723110783394236564666019383983132707218275271600\ 
373739104602083201155596004077520642013900538053909865297866107586 '119.836765\ 
52171896 + 1.2963437435765978216232416516738267520730469766392940368646265311\ 
714589003024273263438639230794710218942740543308918013725498469'112.276784046\ 
16657**-8+I) *Sinc[2*(-Pi/2 + x)]*Sinc[2*(-Pi + y)]*Sinc[2*(-Pi/2 + z)]* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(0.439746673109870284207018211367951575115339956210394775500929432491080\ 
369483929040860833641521602046526283582629811477547017966615035651'119.842093\ 
60587668 + 0.0072645029711010391863608871615800195997149270381463711384223855\ 
02548616900800955621625938854425212921137463558190542796757736896694088'118.0\ 
6009694910037%1) *Sinc[2*(Pi/2 + x)]*Sinc[2«*(-Pi + y)]*Sinc[2«(-Pi/2 + z)]* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 

(0. 607408523806852753296765507653743200226777793614731897631324740456080\, 
166663177698420696276646954078946797165013653885450270248610134228'119.593650\ 
29995018 + 0.0265886958266432718458725574314156385899727185213351855447879477\ 
64575606705512767617359425250177078259961519130388921176310219902205585'118.2\ 
3486645358508«1) *Sinc[2* (Pi + x)]*Sinc[2«*(-Pi + y)]*Sinc[2«*(-Pi/2 + z)]« 

Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(0.166354479913077983809605860945920886952763414386158257721664128941292\, 
755813317817129170845966264634065583194198516219617175259439161558'119.931437\ 
30867585 + 6.9046690228327341672175614619739901847231404543232580108800244783\ 
3853938798023284164620456731255262427076165179768345186539023'111.549545673188\ 
**-104I) *Sinc [2*x] *Sinc[2«*(-Pi/2 + y)]*Sinc[2*(-Pi/2 + z)]* 

Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(0.470653795738230527528169746223792019980724080158726638572146605053017\, 
344996954549409153241681155703782490664458782742427749846811787618'119.836765\ 
16101879 + 1.5678933281501834971347591250293506514702274476366361802887488936\ 
117333176794326944826033544113846643251452407157825871030094582'112.359380107\ 
5392**-8x1I)*Sinc[2*(-Pi + x)]*Sinc[2*(-Pi/2 + y)]*Sinc[2*(-Pi/2 + z)]* 

Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(0. 052028094622542078206281408282062778309889855566165923429038683065026\, 
46986967025057289753541387350451132477605736133562083494640400655 ‘119 .3436051\ 
3776954 - 1.10153456478368454374230243623837127861944371175420701823685898327\ 
33945019870821086916609106844974002664462281055976921581102357'112.6693653456\ 
7394**-8xI) *Sinc[2*(-Pi/2 + x)]*Sinc[2*(-Pi/2 + y)]*Sinc[2*(-Pi/2 + z)]* 

Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(0.105614430981075967153430510274154075754047973624576341197131918080859\, 
651162776641306656872785044260497629835319554450525078641918948859'119.669116\ 
82907786 + 3.3383664554308109395713102988734713572142235456790940853305271723\ 
9896597823346075602850577544691474537956639535364330607077634 ‘112. 16892757339\ 
46«*-9xI)*Sinc[2*(Pi/2 + x)]*Sinc[2*(-Pi/2 + y)]*Sinc[2«*(-Pi/2 + z)]* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(0.462412147985018750727183099354066610025586321216122513993015591404492\, 
805428481402572686324358739907175504104936689750719906385411535369'119.820559\ 
58934033 - 2.4737209568978863759870431051259819588787535816235239112499115567\ 
572383455451687070381228366878271362163124423734302582183117874 ‘112 .548881062\ 
81255**-8%I)*Sinc[2*(Pi + x)]*Sinc[2«*(-Pi/2 + y)]*Sinc[2*(-Pi/2 + z)]* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(0.168480114682355953641748952079175610602085751602274310045527167035491\, 
122814267478377670487590882842847961007010350416204240995539706088'119.958710\ 
0369599 - 5.21146218434696087381714657635395779425292777139639414087684117005\ 
06880391813363518606220473268284454904711756126751813328592'110.44912097826561\ 
**-11l«1I) *Sinc[2*x]*Sinc[2«*(Pi/2 + y)]+*Sinc[2«*(-Pi/2 + z)]* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(0.483477735766820875330573781252711513187682500141537608215531412911671\ 
547963520385259219567809108791763094614436451912418024429869155879'119.881008\ 


191 


192 B_ Result Notes 


62359478 - 0.0072644603221607171885029933535463150559522655561962950712724567\ 
91399427072175303871727182288672474395512635419753217572963110230316848'118.0\ 
5783550008182*I) *Sinc[2*(-Pi + x)]*Sinc[2*(Pi/2 + y)]*Sinc[2*(-Pi/2 + z)]+* 

Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(0.105614519116937402489689346030034849301131984883647181339801572684580\, 
245716103303603180150845349603225666823037204247018410154647434441'119.669117\ 
15693426 + 3.3383677438281349198603217686861212397130781101198910831905673610\ 
49034872157025654545441895869600740117207743055162578107290318 ‘112 .1689277064\ 
399%*-9x1)*Sinc[2*(-Pi/2 + x)]*Sinc[2«*(Pi/2 + y)]*Sinc[2*(-Pi/2 + z)]* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(0.105614472970758308177578046191541310243532263900874763908046870454925\, 
94128988474362573439334405093816068434131939813567335722115599416 ‘119 .6691169\ 
6862387 + 2.99068407187698857519934229463622481106477323506634734611019873301\ 
2482184911230369878866311741824317375189581066199827618513125'112.12116407013\ 
713**-9+I) *Sinc[2*(Pi/2 + x)]*Sinc[2*(Pi/2 + y)]*Sinc[2*(-Pi/2 + z)]+* 

Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(0.439746820664181421841984107070364987306331917658858384538796567655626\, 
976309861834375021011225111903051810050151004851307139503701785115'119.842094\ 
029205 + 0.007264466008417320088058930258887696684529453181440781987728313894\ 
733927694002463818428545370799048357725816351641798366890909475835013'118.060\ 
09501695455«I) *Sinc[2* (Pi + x)]*Sinc[2*(Pi/2 + y)]*Sinc[2«*(-Pi/2 + z)]* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 

(2.333946420128997763971589882813796828694950020688445302975286004343654\, 
27263460680508624534513660312207911303477932006688589293475423511'120.1440286\ 
2432298 + 0.20712279738620408705019185044785371629924991252005321823019350824\ 
5518804890485761531857976396075084517717998381726542873911404153284471'119.09\ 
216564551541*1) *Sinc[2+*x] *Sinc[2*(Pi + y)]*Sinc[2*(-Pi/2 + z)]* 

Sinc [Sqrt [13] «(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 

(0. 830876053193057615034017172512026642919278357654588486056926724437100\ 
52259761762757188853221267514757649441464541978317615790624518405 ‘119.7163686\ 
9692168 - 0.02658867204773352532040413980310619637739233639906090396496743748\ 
3627332164580406667299960264028765099761171297416299510467122913431579'118.22\ 
152910198571*1) *Sinc[2*(-Pi + x)]*Sinc[2«*(Pi + y)]*Sinc[2*(-Pi/2 + z)]* 

Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(0. 462412213078702608811564909751468530523413245711952380167182881275665\, 
495331424906449462815205061366256192117296484291171251937143813591'119.820559\ 
90359284 - 1.6209414954985503219875548474348914373729420304196718317082972662\ 
938079936353788591679167011640866768233657694175502772099531357 112 .365297947\ 
76457x*-8*1) *Sinc[2*(-Pi/2 + x)]*Sinc[2*(Pi + y)]*Sinc[2«#(-Pi/2 + z)]« 

Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(0.483477806755516949495044313220593641569872522807953720926169986441585\, 
171613766246194185859870584860653984564318068413145896555498546937'119.881008\ 
42513697 - 0.0072644914725481669087195833639661989388114565621473105469010506\ 
65414250351936208971730367976416770863294808533487222004526027445438916'118.0\ 
5783710013041«1)*Sinc[2*(Pi/2 + x)]*Sinc[2«*(Pi + y)]*Sinc[2«*(-Pi/2 + z)]* 

Sinc [Sqrt [13] «*(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 

(0. 736702165555573709411513754859294144217998591108091272131164842223895\, 
814266556748001824997126484344206845651837460679688960311085121936'119.664051\ 
90377995 - 1.2672644581171146735875373087206146001771984544839360781960787018\ 
2098894284973152909514211713693641189594923734270528787585826756'112.89962721\ 
205715**-7*1I)*Sinc[2*(Pi + x)]*Sinc[2«*(Pi + y)]*Sinc[2«*(-Pi/2 + z)]* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 

(0.444712026410148029222062879984299026627085065986169179559933332883446\, 
834517790250202611019425918008292498543100464286911271035174452439'120.150509\ 
5025799 + 2.41284665422359039151444599230327179389774879696699947214232952890\ 
695483251090596684897956403633994604862387205984992805999585 "110. 884960349969\ 
82**-10*1I) *Sinc[2*x] *Sinc[2*y] *Sinc[2*(Pi/2 + z)]* 

Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(0.217460297467140595150384820317014963984883858355723433987435808862435\, 
05220652566163231718398030519993917291538341610567927007710253195 ‘119.7422744\ 
8140867 + 0.20712284064461135207724627118916979050476730033773752304395137473\ 
3348973284722514237622385372621057105857906182379651098793310078544204 '119.72\ 
1122497356431) *Sinc[2«(-Pi + x)]*Sinc[2*y]*Sinc[2«(Pi/2 + z)]+ 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(0.168480188005244327449015862543981049291584860626880893811853503565898\, 
428625499436426184958056380987232996060743847490306789627879788639'119.958710\ 
00609154 - 1.8001468807431320663360301203808056253318482289303662227907005199\ 
341940509847489455944393660458020999236362109001834523385958'110. 987469109891\ 
78x*-10*1) *Sinc[2«*(-Pi/2 + x)]*Sinc[2*y]*Sinc[2*(Pi/2 + z)]* 

Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(0.166354426755412779584198693492312082201050731886512560558949518560281\, 
253511221408759823284458053058692527284814270451020952342061920356'119.931437\ 
38616044 + 5.6256609112749350440193515676876585193459876251526679142707137500\ 
1137480346669292459701661809808297270159968884696677091653051'111.46057657542\ 
102%*-10%I)*Sinc([2«*(Pi/2 + x)]*Sinc[2*y]*Sinc[2«*(Pi/2 + z)]«* 

Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(0.186345717696572407075818489647127104277199966880642885828492171499423\, 
185933887253020430388781466455292591759638875399958216864598626817'119.682906\ 
19201424 + 0.2153373153780796364713975579631349728635101820548218472100944338\ 
1944840584484102465730131512700024195237349244105666487960165066380485'119.74\ 
570606945856+1) *Sinc[2* (Pi + x)]*Sinc[2*y]*Sinc[2*(Pi/2 + z)]* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 

(2.333946420128997577365799024298888990108711980052900574182121379647718\, 
417855375299888429050734367552209953362430406572433770962828526093'120.144028\ 
62432298 + 0.2071227973862040948692290277703841611517896424822582321757214767\ 
16677641091730671439817343024349731866264799513843723915131520720289148'119.0\ 
9216564551542«1) *Sinc[2*x]*«Sinc[2*(-Pi + y)]*Sinc[2«*(Pi/2 + z)]* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 

(0. 736702165555573491831717891506997784204788907990293503171525430774998\, 


B.1 


Example File of Results 


014932984084971812479231700353258974032089319837782643102130096186'119.664051\ 
90377995 - 1.2672644590355671221574845842705767401180348726875309050594606737\ 
8764071970673305486969641655824348618282890972383740387376405697'112.89962721\ 
23719%*-7*1)*Sinc[2*(-Pi + x)]*Sinc[2*(-Pi + y)]*Sinc[2*(Pi/2 + z)]* 

Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(0.483477806755517358403858071042067184883327253561316781825235533120254\ 
610580100437772068390724178216841281272722213742638687563700373311'119.881008\ 
42513697 - 0.0072644914725482319948738891025073264899220614782733659198796581\ 
89023511301241257977681071405924902811873914215097877082458028792135538'118.0\ 
5783710013041*1)*Sinc[2*(-Pi/2 + x)]*Sinc[2«*(-Pi + y)]*Sinc[2*(Pi/2 + z)]* 

Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(0.462412213078702446220946102800209274692312881093637457917627054477189\, 
068479024952479252648676762306056924396484456141180377384145051027'119.820559\ 
90359284 - 1.6209414927015254234167607403795736063195766002427402708647543306\ 
161607862109497050294251416016909548224805298612945765271809153 ‘112. 365297947\ 
01516**-8+I)*Sinc[2*(Pi/2 + x)]*Sinc[2*(-Pi + y)]*Sinc[2*(Pi/2 + z)]* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 

(0.830876053193058884454753248877489083085934863455302114251134577974769\, 
307932895065205638445061217130993319414363597226380202916473833081'119.716368\ 
6969217 - 0.02658867204773356956523201383551545012003616132978981654762472549\ 
5518706461942809901507816439608948472585925685269254387932904000016342'118.22\ 
152910198575*1) *Sinc[2* (Pi + x)]*Sinc[2*(-Pi + y)]*Sinc[2«*(Pi/2 + z)]* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(0.168480114682355962678897254234031804203076676544249788435890150854360\, 
969434963907771939622495739312796328448169285125911302995736964411'119.958710\ 
03695987 - 5.2114593270984666596455556952004180941184907141225612464916611204\ 
325181246068365585942928530528950354237466172741302319606192'110.449120740158\ 
21**-11«I) *Sinc [2+*x] *Sinc[2«(-Pi/2 + y)]*Sinc[2«*(Pi/2 + z)]* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(0.439746820664181549258685122714121821049606199879089586164056640992700\, 
412335457087447693159119286888623142423965179055852386459304046923'119.842094\ 
02920496 + 0.0072644660084174593772171379810861551757869014646896414897024757\ 
65925432555290306180471341358136891500310677976808062998469861967432242'118.0\ 
600950169545«1) *Sinc[2*(-Pi + x)]*Sinc[2*(-Pi/2 + y)]*Sinc[2«(Pi/2 + z)]«* 

Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(0.105614472970758464315455988818330332893138850205288311226786609748364\, 
579637836697250744254752205139704986590699184608996331127611755486'119.669116\ 
96862385 + 2.9906840465050430697692923042221270299592803117803675559638584049\ 
52788846695970232242650476932163785989240185142511686666625785 \112.1211640664\ 
527**-9%1I) *Sinc[2*(-Pi/2 + x)]*Sinc[2«*(-Pi/2 + y)]*Sinc[2*(Pi/2 + z)]* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(0.105614519116937344989689836192081663756557346546610337928537788703328\, 
944322714112049502052231594516632970664539675588460550777758295636'119.669117\ 
15693426 + 3.3383677522869711634541487282605519540941527482593199060142715769\ 
71577458743402779608868080366069052406395082299015013172120198'112.1689277075\ 
4033%*-9*I) *Sinc[2*(Pi/2 + x)]*Sinc[2*(-Pi/2 + y)]*Sinc[2*(Pi/2 + z)]+* 

Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(0.483477735766820842767121889804955467311570607755135628279976322837946\, 
835620711060744485213821074763744194336527792699192929091689193876'119.881008\ 
62359478 - 0.0072644603221607070630308311200152264719859886780143813771404557\ 
0769773328675368373775228867087687210911170035382301769640581157139875'118.05\ 
783550008182«1) *Sinc[2*(Pi + x)]*Sinc[2*(-Pi/2 + y)]*Sinc[2«*(Pi/2 + z)]«* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(0.166354479913077926970126962170705317874769044258365974189758350835507\, 
848542926364536947164593544442665359117566978301264614575860872647'119.931437\ 
30867587 + 6.9046689887490746053463119250071145498029665546384955291817815362\ 
0221990604702327308303971816654084994498219914371345582509808'111.54954567104\ 
42**-10«1) *Sinc [2*x] *Sinc[2*(Pi/2 + y)]*Sinc[2*(Pi/2 + z)]* 

Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(0.462412147985018904750808315440288396336093786671006646062024197456687\, 
177214203537586598626613358038683194889747129194849702324977682638'119.820559\ 
58934035 - 2.4737209504700091774627615599869047858735527830236888540642275691\ 
342119199805087019317047365629498173964705433018916207802850577'112.548881061\ 
68407«*-8x1I)*Sinc[2«*(-Pi + x)]*Sinc[2«(Pi/2 + y)]*Sinc[2*(Pi/2 + z)]* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(0.105614430981076116519245749280308204012743532351545237336163148678433\, 
322373792926194635474848808915015912575553799503748670157999011673'119.669116\ 
82907786 + 3.3383664741155017892758046484347959122393196441036561983477102094\ 
94663488816243948936765438291818870399006093461863757225299605‘112.1689275758\ 
2534%*-9xI)*Sinc[2*(-Pi/2 + x)]*Sinc[2*(Pi/2 + y)]*Sinc[2*(Pi/2 + z)]+* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(0. 052028094622542004189227581560736091141587220420718246942561874418377\ 
898959884732690794343626950160170964861277894996706062478260553256'119.343605\ 
13776954 - 1.1015345629074862204683896494398496619466796190805158674272348115\ 
147139161365590873971184861984001509448216815897048680166682966 ‘112. 669365344\ 
93422%*-8%I)*Sinc[2*(Pi/2 + x)]*Sinc[2«*(Pi/2 + y)]*Sinc[2«(Pi/2 + z)]«* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(0.470653795738230577337308805220703029608395375775221180676732275288247\, 
647759453810489323840536758207101097543366406570872840951517185997'119.836765\ 
1610188 + 1.56789331367287438412253862760135717686730174317088814400875042547\ 
21681922776624526606730909898757540511722121172668958166350296 ‘112.3593801035\ 
291«*-8%1) *Sinc[2*(Pi + x)]*Sinc[2*(Pi/2 + y)]*Sinc[2«*(Pi/2 + z)]* 

Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 

(2.315026294512690853273940080686062739620238936916737984884054777185034\, 
249295421610927145878760527849891031334039945624004760481414426827'120.143252\ 
05555282 + 0.2153373591492162542059615653244564552745424474344755888489554491\ 
22448414075423229176218976777630771220519530884130486587331318195034159'119.1\ 
1181551002679«I) *Sinc[2*x]*Sinc[2*(Pi + y)]*Sinc[2«(Pi/2 + z)]* 

Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 


193 
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(0.607408523806852565908750741591246807749666556583988379269080777805130\, 
560276233732367966876534686704866397214195045087806895202491893885'119.593650\ 
29995017 + 0.0265886958266432241179965327903539049550837897009612374767544292\ 
39945121416779463758587803082004585476401569010649711541378220450189884‘118.2\ 
3486645358507«1) *Sinc[2*(-Pi + x)]*Sinc[2«*(Pi + y)]*Sinc[2«*(Pi/2 + z)]* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(0.439746673109870555017638167639318473058686981932633604933836420269389\, 
345695880319918466541624576065335968482342057396958730447066968911'119.842093\ 
60587668 + 0.0072645029711010218627386504383857572328941579243825240583287863\ 
37163844896305127547299662724637713071968908981668688732739252191030343'118.0\ 
6009694910037%1) *Sinc[2«*(-Pi/2 + x)]*Sinc[2«*(Pi + y)]*Sinc[2*(Pi/2 + z)]* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(0.470653888977005463658666876081017859814024694304707779873365314778061\, 
132729005740482470782249461527744776016154886830829732386852685326 '119.836765\ 
52171893 + 1.2963437442336267974247911974789526918143842443559354631841345556\ 
371444729945324689742843798421755669001739951075371631885903309'112.276784046\ 
38665x*-8%I)*Sinc[2*(Pi/2 + x)]*Sinc[2«*(Pi + y)]*Sinc[2«*(Pi/2 + z)]* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 

(0. 682641090184492908809079411392284604269492064114699790900985028913421\ 
004436429104824130275193209660661528531953015216475949304786029169'119.632868\ 
79837787 + 1.0726300855932266096135779930419531986805047184605074992369971717\ 
5573677328146885026946527368949324764098475334935999333076116536'112.82912634\ 
625784«*-7*1)*Sinc[2*(Pi + x)]*Sinc[2*(Pi + y)]*Sinc[2*(Pi/2 + z)]* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 

(0.129838197739212431975584825054734447521802098396511241169282494128624\ 
493363941298420332913599177555094708293798288747522186742112003528'120.147660\ 
5635195 - 1.37934529655964225393055493158229464483028654914426370978316226337\ 
176912148401994373752198410382304344358450403845589642617157'111.173931083337\ 
69%*-10«1) *Sinc [2*x] *Sinc[2«*y]*Sinc[2* (Pi + z)]« 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(2.616961332192118258743946195435185539657472864328238760005437150017775\, 
666201889459391972659134279642576548755953613886995700546824225136'120.128181\ 
67963982 + 2.8068135444599956348103330849782375020461587421824564890326317150\ 
795211760895810859661275870959404074460885338017615421898086785'112.158597937\ 
59721«*-8+*I)*Sinc[2*(-Pi + x)]*Sinc[2*y]*Sinc[2«*(Pi + z)]* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 

(2.333946277389652376178239892071774003069178056819224102177433034532745\, 
678611441150652499145728485483596865409137128159831823852149359305'120.144028\ 
62184276 + 0.2071228355195149764869332870532554722719143863243888692396154871\ 
00741763431004935644023668577732832797896192717430464744791214144291062'119.0\ 
9216574955357*1) *Sinc[2*(-Pi/2 + x)]*Sinc[2*y]*Sinc[2«*(Pi + z)]* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 

(2.315026471682001417060622643107175896518309290561868079882593450187849\, 
233221601623841005847934441473115354725579043856692561831209416664'120.143252\ 
05889897 + 0.2153373178271227420836368912825690915616551803506028243916871819\ 
75847009499272241473052978474980147671252251187465355337773132851806082'119.1\ 
1181539679752*1I) *Sinc[2*(Pi/2 + x)]*Sinc[2*y]*Sinc[2*(Pi + z)]+* 

Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(2.514995329285328952343645352410219677588044303666476391429021076282813\, 
575778281463168258409385879557510678442526924803769268296810431819'120.129684\ 
58480158 - 2.7301865189799512957322452600858288714323785298739140234312420931\ 
045585736785930916021049878369262390313969542857246434123427715'112.165339719\ 
83938%*-8+I)*Sinc[2*(Pi + x)]*Sinc[2*y]*Sinc[2* (Pi + z)]* 

Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(2..616961777968192787954293508059229325249082026629026231062524393317507\ 
893321914426704411493561050217423773209403429713456585785092503596'120.128181\ 
68108356 + 2.4519019703255121014121176126808226402146706779815385756073738898\ 
587437488335849717837363649970084815040523391609372992921843474'112.099887404\ 
11843**-8x1I) *Sinc[2*x]*Sinc[2*(-Pi + y)]*Sinc[2«*(Pi + z)]* 

Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(4.155897137204208546738291899089105809065044855894923106273269635218052\, 
352530156667634050637219794504989866700585299294614953647198042936'119.908697\ 
38639329 + 1.1153726666791917261759265545199320099365743599700978388618291309\ 
5749478756446937182280610495942741797605669647377119006934449785'112.33745259\ 
408332**-7*1I)*Sinc[2*(-Pi + x)]*Sinc[2«(-Pi + y)]*Sinc[2*(Pi + z)]* 

Sinc [Sqrt [13] «(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 

(0. 830875581456109613861620830907496602853299410527699041514775269177292\, 
753384448854 908948940634342158728722240717386349591438743954162466'119.716368\ 
47429109 - 0.0265886132816872261470089733574437392702896461064285775381670186\ 
63290970563707686991368349364710701169939217962629313712715219087265708'118.2\ 
2152816605474«1) *Sinc[2*(-Pi/2 + x)]*Sinc[2«*(-Pi + y)]*Sinc[2*(Pi + z)]«* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 

(0. 607408995771524565882199337689387178699103941990090353423866666129563\, 
244420470518749802136030595707362819300790438959326718892020178826'119.593650\ 
67486807 + 0.0265886200224066917045305524925506555737975880808923666602170259\ 
21855830832164946033262328351895490045619057189810489712181479786360374‘118.2\ 
3486525287727«1) *Sinc[2*(Pi/2 + x)]*Sinc[2«*(-Pi + y)]*Sinc[2«*(Pi + z)]* 

Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(4.155899404675120742490169491853687100626447543645117669826336396846525\, 
001486593767729329289765096113430786051088144599012510914630174125'119.908697\ 
51427421 + 1.5260718929132062916279096937549233238857839001887941512686014450\ 
7464652715934097355188974775018449723483640722834620449501465562'112.47360748\ 
116466**-7*1I)*Sinc[2*(Pi + x)]*Sinc[2«*(-Pi + y)]*Sinc[2«(Pi + z)]«* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(0.217460479548246950371037881963984874509797823773843479961200716143651\, 
241025765550185045623671269287259666510000024236398863314560763598'119.742274\ 
86279555 + 0.2071227996303274870895385864919934150570356838369705482091582880\ 
76826001142312611531818501681824182668394291061919888892868458742136757'119.7\ 
211224291069*1) *Sinc [2+*x] *Sinc[2*(-Pi/2 + y)]*Sinc[2*(Pi + z)]* 


B.1 


Example File of Results 


Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 

(0.607408257964641130356186194563310702354770027094312857209318366430463\, 
962215875998369228429173746824550866091654552006358651647405295042'119.593650\ 
12260324 + 0.0265887627844678559422051706336874388525717062676886589014912176\ 
0021062477836294786583494051955996256558458712420740739302789911319661'118.23\ 
486755998866«1) *Sinc[2*(-Pi + x)]*Sinc[2*(-Pi/2 + y)]*Sinc[2*(Pi + z)]* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(0.462412071796418279853012238287715082827822905660252965665030217815744\, 
931735288982763542417242387329803163139610430786048641147014435406'119.820559\ 
63487956 + 3.3207402979746570908311107858465594603600771056498412727983296340\ 
656803641469300929101420479873643544962718908103577869802589346 '112.676765384\ 
0293%*-8%I)*Sinc[2«*(-Pi/2 + x)]*Sinc[2«(-Pi/2 + y)]*Sinc[2«(Pi + z)]* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(0.439746796069920314799953774043290820434814664880821598693069641784359\, 
009925511195175181830691200163208140058606032412376341438651879656'119.842093\ 
91589869 + 0.0072644814621984880210380997956633606273910066015047721014062924\ 
02994908203117808409861813035027319728520885239312482924813975732956586 ‘118.0\ 
6009585181617*1) *Sinc[2*(Pi/2 + x)]*Sinc[2*(-Pi/2 + y)]*Sinc[2*(Pi + z)]* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 

(0. 736701414918218747030071022895342742763881773920464529222428912591263\, 
961154096432573815729479398652317135244236526140743855036463788276'119.664051\ 
49926902 + 8.2941625480073789021543456591608348525452325356174552214330398595\ 
4788620779806336537168643348354616131258404114374780390186388'112.71553253766\ 
459**-8%1) *Sinc([2* (Pi + x)]*Sinc[2*(-Pi/2 + y)]*Sinc[2*(Pi + z)]* 

Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(0.186345578135267350699948879661735784488500326218150570104192197048176\ 
802500105941219524881954917200677317572398451453359292668391630079'119.682905\ 
89265526 + 0.2153373538191994554307273367442030855462727524749742048291407722\ 
94310197039597345791944953652066010044243907801524772062504769148043313'119.7\ 
4570617288755x1) «Sinc [2*x] *Sinc[2*(Pi/2 + y)]*Sinc[2«(Pi + z)]* 

Sinc [Sqrt [13] «(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 

(0.830876104375285942696230774024727363124882099978411752010532977365510\, 
966941484170036477609409840860262113017667803160992427151222475273'119.716368\ 
6821203 - 0.02658875539026318126433220944289540703175533641703555561471465340\ 
5993346040151045563297426678325716946981960161232210914478700679036595'118.22\ 
1530421731141) *Sinc[2*(-Pi + x)]*Sinc[2*(Pi/2 + y)]*Sinc[2«*(Pi + z)]* 

Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(0.483477798777987055309209496050295667381800171221379764980682522578332\, 
110766231006555045260420819048755250839873507901127224447195366877'119.881008\ 
54327098 - 0.0072644733032702242073832135783741613639026174734488839570289236\ 
94349331110416688206250205441631822968367478425567679824062310075506777'118.0\ 
5783613921163%1) *Sinc[2«*(-Pi/2 + x)]*Sinc[2«(Pi/2 + y)]*Sinc[2*(Pi + z)]* 

Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(0.470654020810854570093949745192887827545462245793294812641611905460422\ 
193836856661335812881849312248789961687960756461363918084868320699'119.836765\ 
50062575 - 4.0960832792035602785082497441712773813056724885358461523785174096\ 
660806955983447066769691713076824032041744273041993025513829264 '112.776432505\ 
27812**-8+I)*Sinc[2*(Pi/2 + x)]*Sinc[2*(Pi/2 + y)]*Sinc[2*(Pi + z)]* 

Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 

(0. 682642049039463078759112629630840646048062034006293265044689235210866\, 
897962477709549793509945919317980122846167435738078668342646344427'119.632869\ 
34382994 - 9.1144540484811033289555943799388474517837406986815800381602551716\ 
33922609970384199750796170072255415874331964620938479984776002'112.7584069673\ 
4613x*-8%1)*Sinc[2*(Pi + x)]*Sinc[2*(Pi/2 + y)]*Sinc[2«*(Pi + z)]s* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(2.514994892621752625433858480020937329769087578852122288662657691799200\, 
112016800623789102950306888437701081777691232221361177909126027025'120.129684\ 
58497943 - 3.0850991762882560257195327642028016022979502838280908340862654617\ 
497425210117329462282737415787231206298588503271773297263003225'112.218416607\ 
34194%*-8%I) *Sinc[2*x] *Sinc[2* (Pi + y)]*Sinc[2*(Pi + z)]* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(4.15589536088263829654484 9665358650404 058359536542401675025129043027373\ 
03594562328336416264844732322652570104002287074866101417673935751 ‘119 .9086972\ 
8786451 + 1.52607140025081783232670785517892282450888662091925533131392795036\ 
690239520810958834569083865822060198588100338957855674036687173 112 .473607537\ 
1309%*-7*I)*Sinc[2*(-Pi + x)]*Sinc[2«*(Pi + y)]*Sinc[2*(Pi + z)]* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 

(0. 736701015231880878138553018675221482526530257321473957689214640943329\, 
745534904023113750321229068717139509064976769958231119907455171944'119.664051\ 
23187508 + 9.0479908454794988681847047753177397101984296373876610354799436111\ 
877592106061816540828473734125705068402768548384475466424896551 °112.753312116\ 
03768x*-8x1I)*Sinc[2«*(-Pi/2 + x)]*Sinc[2*(Pi + y)]*Sinc[2*(Pi + z)]«* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] - 

(0. 682642148508716182719709821647466634888114454282262844561737646990810\, 
312400721171928815449983020846535286256195076230527078924926949165'119.632869\ 
3875421 - 9.93363131746562955011587667097095900273934334344276777165409448782\ 
12145688438361889757526696331669410574688300803832242379324548'112.7957843253\ 
4373%°-8x1I)*Sinc[2«*(Pi/2 + x)]*Sinc[2*(Pi + y)]*Sinc[2*(Pi + z)]* 

Sinc [Sqrt [13] *(Pi/Sqrt [13] + Log[t/(1.**-6 - t)])] + 

(3 .598735888376100111675377827861292157140828623230793786772081621874767\, 
709444162107727068343367350954559175340832395024567193976670964908'119.870197\ 
82302441 - 4.0627873054507334274173852305125374354438745867026728620264813079\ 
7795529584741599603561265364881244885782714630860700645687857296'112.92287193\ 
491131«*-7«*1I)*Sinc[2«*(Pi + x)]*Sinc[2*(Pi + y)]*Sinc[2*(Pi + z)l* 

Sinc [Sqrt [13] * (Pi/Sqrt [13] + Log[t/(1.**-6 - t)])]], 

{{{{{0, 0.005744532383467384, 0, -0.005744532383467383, 0} 
{-0.005744546691155198, 2.720916419022429**-8, -0.033406037070265064 
0.006794304679397165, -0.005744546691155198} 
{0, 0.033406028501733576, 0, -0.033406028501733576, 0}, 
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{0.005744546691155196, -0.006794304679397165, 0.033406037070265064, 
-2.720916418911993%*-8, 0.005744546691155196}, 
{0, 0.005744532383467384, 0, -0.005744532383467383, O}}, 
{{9.73581817421927«*-6, -0.003399138381585317 + 1.9451118843991242%*-7% 
I, 5.980396567743163**-6, 0.0033951641706343465 + 
1.945111884399141**-7%I, 9.73581817421927«*-6}, 
{0.0033928398726404286 - 1.9451118843978536x*-7+I, 
1.430173326989669x*-6, 0.01975195648076359 - 1.9451118843734337«*-7«1, 
-0.004016519321051555, 0.0033928398726404286 - 1.9451118843978536%*-7* 
I}, {5.980396567742634%*-6, -0.01975641720562333 + 
1.945111884389142%*-7*I, 2.423963549910466x*-6, 
0.019754280957926286 + 1.9451118843891546%*-7«I, 
5 .980396567742634%*-6}, {-0.003401466933934184 - 
1.9451118843631592**-7*I, 0.004019386383226745, 
-0.019758745578803416 - 1.9451118845816005**-7«I, 
1.4423988939827633+*-6, -0.003401466933934184 - 1.9451118843631592%*-7+ 
I}, {9.73581817421927**-6, -0.003399138381585317 + 
1.9451118843991242**-7%I, 5.980396567743163%*-6, 
0.0033951641706343465 + 1.945111884399141%*-7«I, 
9.73581817421927%*-6}}, {{0, 0.03340603320531195, 0, 
-0.03340603320531195, 0}, {-0.033406032366686655, 
1.1496333627754508**-8, -0.19426502871641926, 0.03951070011155834, 
-0.033406032366686655}, {0, 0.19426502495036607, 0, 
-0.19426502495036607, 0}, {0.033406032366686655, -0.03951070011155834, 
0.19426502871641924, -1.1496333628858867**-8, 0.033406032366686655}, 
{0, 0.03340603320531195, 0, -0.03340603320531195, O}}, 
{{-9.73581817421927**-6, -0.0033951641706343474 - 1.9451118843989548+*-7% 
I, -5.980396567743163%*-6, 0.003399138381585316 - 
1.9451118843989378%*-7*1I, -9.73581817421927«*-6}, 
{0.003401466933934184 + 1.9451118844002253%*-7«I, 
-1.4423988939827633%*-6, 0.019758745578803423 + 1.9451118843032146%*-7 
I, -0.004019386383226745, 0.003401466933934184 + 
1.9451118844002253%*-7xI}, {-5.980396567742633%*-6 
-0.019754280957926286 - 1.9451118844262843%*-7«I, 
-2.423963549910466%*-6, 0.01975641720562333 - 1.9451118844262716%*-7% 
I, -5.980396567742633+*-6}, {-0.0033928398726404286 + 
1.9451118843655309**-7*I, 0.004016519321051555, 
-0.019751956480763583 + 1.9451118845113815**-7sI, 
-1.430173326989669%*-6, -0.0033928398726404286 + 
1.9451118843655309**-7*1I}, {-9.73581817421927«*-6, 
-0.0033951641706343474 - 1.9451118843989548%*-7«1, 
-5.980396567743163%*-6, 0.003399138381585316 - 1.9451118843989378%*-7* 
I, -9.73581817421927«*-6}}, {{0, 0.005744532383467384, 0, 
-0.005744532383467383, O}, {-0.005744546691155198, 
2.720916419022429x*-8, -0.033406037070265064, 0.006794304679397165, 
-0.005744546691155198}, {0, 0.033406028501733576, 0, 
-0.033406028501733576, O}, {0.005744546691155196, 
-0.006794304679397165, 0.033406037070265064, -2.720916418911993+*-8 
0.005744546691155196}, {0, 0.005744532383467384, 0, 
-0.005744532383467383, O}}}, 

{{{0, 0.005744527287594969, 0, -0.005744527287594969, O}, 
{-0.005744537441177679, 1.9309229351673953%*-8, -0.03340600713028449, 
0.00679429066966187, -0.005744537441177679}, {0, 0.03340600104954632, 
0, -0.03340600104954632, 0}, {0.005744537441177679, 
-0.006794290669661873, 0.03340600713028449, -1.930922935277831+*-8 
0.005744537441177679}, {0, 0.005744527287594969, 0, 
-0.005744527287594969, O}}, {{6.9091114514986625%*-6 
-0.0033985547481202812 + 1.3803662110828634**-7+1, 
4.244042763168939**-6, 0.0033957344119697245 + 1.3803662110828634%*-7x 

I, 6.9091114514986625**-6}, {0.0033940849529615577 - 
1.380366211062865«*-7*I, 1.0149358426852221%*-6, 
0.019752908736525097 - 1.3803662111522862%*-7«I, 
-0.004016923980558435, 0.0033940849529615577 - 1.380366211062865%*-7« 

I}, {4.2440427631618415%*-6, -0.019756074331108424 + 
1. 3803662110369542**-7*I, 1.720188105222856%*-6, 
0.01975455832268188 + 1.3803662110369542**-7«I, 
4.2440427631618415**-6}, {-0.003400207226272135 - 
1.380366211062865**-7*I, 0.004018958617977918, 

-0.01975772668211167 - 1.3803662111522862**-7+1, 
1.0236118311995716**-6, -0.003400207226272135 - 1.380366211062865**-7x 

T}, {6.9091114514986625x*-6, -0.0033985547481202812 + 
1. 3803662110828634%*-7%I, 4.244042763168939%*-6, 
0.0033957344119697245 + 1.3803662110828634**-7«I, 
6.9091114514986625%*-6}}, {{0, 0.03340600438748425, 0, 
-0.03340600438748425, 0}, {-0.033406003792346574, 
8.15847931911654%*-9, -0.19426493698813607, 0.03951063403621358, 
-0.033406003792346574}, {0, 0.19426493431552047, 0, 
-0.19426493431552047, 0}, {0.033406003792346574, -0.03951063403621358, 
0.19426493698813607, -8.15847931801218**-9, 0.033406003792346574}, 

{0, 0.03340600438748425, 0, -0.03340600438748425, O}}, 

{{-6.9091114514986625**-6, -0.0033957344119697245 - 
1.380366211082677«*-7*I, -4.244042763168937%*-6, 
0.0033985547481202812 - 1.380366211082677«*-7«I, 
-6.9091114514986625%*-6}, {0.003400207226272135 + 
1.380366211067981«*-7*I, -1.0236118311995716%*-6, 
0.01975772668211167 + 1.3803662110999904**-7%I, -0.004018958617977918, 
0.003400207226272135 + 1.380366211067981**-7«I}, 
{-4.244042763161842«*-6, -0.01975455832268188 - 1.3803662110765446%*-7x 

I, -1.720188105222856**-6, 0.019756074331108424 - 
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1.3803662110765446%*-7*I, -4.244042763161842%*-6}, 
{-0.0033940849529615577 + 1.380366211067981x*-7+I, 
0.004016923980558435, -0.019752908736525097 + 1.3803662110999904+*-7% 

I, -1.0149358426852221**-6, -0.0033940849529615577 + 

1.380366211067981%*-7*I}, {-6.9091114514986625%*-6, 

-0.0033957344119697245 - 1.380366211082677**-7xI, 
-4.244042763168937%*-6, 0.0033985547481202812 - 1.380366211082677**-7* 

I, -6.9091114514986625x*-6}}, {{0, 0.005744527287594969, 0, 
-0.005744527287594969, O}, {-0.005744537441177679, 
1.9309229351673953%*-8, -0.03340600713028449, 0.00679429066966187, 
-0.005744537441177679}, {0, 0.03340600104954632, 0, 
-0.03340600104954632, 0}, {0.005744537441177679, 
-0.006794290669661873, 0.03340600713028449, -1.930922935277831+*-8 
0.005744537441177679}, {0, 0.005744527287594969, 0, 
-0.005744527287594969, O}}}, 

{{{0, 0.0057445238988898745, 0, -0.0057445238988898745, O}, 
{-0.005744526484050362, 4.916240124160756**-9, -0.03340597616795204, 
0.006794276659946141, -0.005744526484050362}, 

{0, 0.033405974619761046, 0, -0.033405974619761046, 0}, 
{0.005744526484050362, -0.006794276659946141, 0.03340597616795204, 

-4.916240124160756%*-9, 0.005744526484050362}, 

{0, 0.0057445238988898745, 0, -0.0057445238988898745, O}}, 

{{1.7590992572972645%*-6, -0.003397497174748252 + 3.514491180232661+*-8* 

I, 1.0805575723769594**-6, 0.003396779100852105 + 

3.514491180232661**-8%I, 1.7590992572972645«*-6}, 
{0.0033963591391757628 - 3.5144911804245776x*-8+I, 
2.584085217645023**-7, 0.01975467081815901 - 3.5144911800144866+*-8*1, 
-0.004017670731205961, 0.0033963591391757628 - 3.5144911804245776%*-8* 

I}, {1.0805575723724215%*-6, -0.019755476796745795 + 

3.51449117982023%*-8%1, 4.379697833326133%*-7, 

0.019755090812208102 + 3.51449117982023%*-8*I, 
1.0805575723724215**-6}, {-0.003397917905116128 - 

3.514491180424599x*-8%I, 0.004018188761633151, 

-0.019755897494740927 - 3.5144911800144866%*-8«I, 
2.60617478554390344*-7, -0.003397917905116128 - 3.514491180424599%*-8x« 

I}, {1.7590992572972645«*-6, -0.003397497174748252 + 

3.514491180232661**-8%I, 1.0805575723769594%*-6, 
0.003396779100852105 + 3.514491180232661**-8xI, 
1.7590992572972645«*-6}}, {{0, 0.033405975469619195, 0, 
-0.0334059754696192, 0}, {-0.033405975318093875, 
2.0771956573394124%*-9, -0.19426484481054948, 0.03951056796092696, 
-0.033405975318093875}, {0, 0.1942648441300861, 0, 
-0.1942648441300861, 0}, {0.033405975318093875, -0.03951056796092695, 
0.1942648448105495, -2.0771956573394124%*-9, 0.033405975318093875}, 
{0, 0.033405975469619195, 0, -0.0334059754696192, O}}, 

{{-1.7590992572972645**-6, -0.003396779100852105 - 

3.514491180334432%*-8%I, -1.0805575723769594%*-6, 
0.003397497174748252 - 3.514491180334432**-8«I, 
-1.7590992572972645**-6}, {0.003397917905116128 + 

3.514491180315988«*-8%I, -2.6061747855439034%*-7, 
0.019755897494740927 + 3.5144911800321895%*-8«I, 
-0.004018188761633151, 0.003397917905116128 + 3.514491180315988%*-8« 

I}, {-1.0805575723724215**-6, -0.019755090812208102 - 

3.514491180226446%*-8%1, -4.379697833326132%*-7, 
0.019755476796745795 - 3.514491180226446%*-8«I, 
-1.0805575723724215«*-6}, {-0.0033963591391757628 + 

3.514491180315967**-8+I, 0.004017670731205961, 

-0.01975467081815901 + 3.5144911800321895+*-8+I, 
-2.584085217645023**-7, -0.0033963591391757628 + 

3.514491180315967%*-8%I}, {-1.7590992572972645%*-6, 

-0.003396779100852105 - 3.514491180334432+*-8*1, 
-1.0805575723769594%*-6, 0.003397497174748252 - 3.514491180334432%*-8* 

I, -1.7590992572972645x*-6}}, {{0, 0.0057445238988898745, 0, 

-0.0057445238988898745, 0}, {-0.005744526484050362, 
4.916240124160756x*-9, -0.03340597616795204, 0.006794276659946141, 
-0.005744526484050362}, {0, 0.033405974619761046, 0, 
-0.033405974619761046, O}, {0.005744526484050362, 
-0.006794276659946141, 0.03340597616795204, -4.916240124160756**-9 
0.005744526484050362}, {0, 0.0057445238988898745, 0, 
-0.0057445238988898745, O}}}}, 

{{{{0, -0.005744546691143481, 0, 0.005744546691143478, O}, 
{9.735818095504373%*-6, 0.003392839872638108 - 1.9451118908416385+*-7 

I, 5.980396613478002%*-6, -0.003401466933934258 - 

1.9451118976268978**-7*1, 9.735818095504373«*-6}, 

{0, -0.03340603236668552, 0, 0.033406032366685524, 0}, 
{-9.73581809550493%*-6, 0.003401466933934257 + 1.9451118976107084%*-7 
I, -5.980396613477894%*-6, -0.0033928398726381075 + 

1.945111890836935**-7*I, -9.73581809550493%*-6}, 

{0, -0.005744546691143481, 0, 0.005744546691143478, O}}, 

{{0.0057445323834868795, 2.7209176589777784**-8, 0.033406028501718754, 
-0.006794304679387975, 0.0057445323834868795}, 
{-0.0033991383815603535 + 1.9451118903697218%*-7«I, 
1.4301733411163815**-6, -0.019756417205627878 + 1.9451118821979373%*-7* 

I, 0.004019386383227855, -0.0033991383815603535 + 

1.9451118903697218%*-7*I}, {0.03340603320529245, 
1.149632124913813%*-8, 0.1942650249503809, -0.03951070011156743, 
0.03340603320529245}, {-0.003395164170659298 - 1.9451118903500796%*-7x« 

I, -1.4423989081599128%*-6, -0.01975428095792176 - 

1.9451118821782964**-7*I, 0.004016519321050392, 


198 


-0.003395164170659298 - 1.9451118903500796**-7«I}, 
{0.0057445323834868795, 2.7209176589777784%*-8, 0.033406028501718754, 
-0.006794304679387975, 0.0057445323834868795}}, 

{{0, -0.033406037070265654, 0, 0.033406037070265654, O}, 
{5.980396553317465**-6, 0.01975195648074519 - 1.9451119015145247**-7*1, 
2.4239635644669265+*-6, -0.01975874557882411 - 1.9451118947299096%*-7x« 

I, 5.980396553317465x**-6}, {0, -0.19426502871643148, 0, 
0.19426502871643148, 0}, {-5.9803965533169056%*-6, 
0.019758745578824108 + 1.9451118947137202%*-7«1, 
-2.423963564467034%*-6, -0.019751956480745188 + 1.9451119014881372**-7 

I, -5.9803965533169056%*-6}, {0, -0.033406037070265654, 0, 
0.033406037070265654, O}}, {{-0.0057445323834868795, 
0.006794304679387974, -0.03340602850171875, -2.720917658804306x*-8 
-0.0057445323834868795}, {0.003395164170659297 + 
1.9451118903807629**-7*I, -0.0040165193210503925, 
0.019754280957921755 + 1.9451118821979362**-7+1, 
1.44239890815861184*-6, 0.003395164170659297 + 1.9451118903807629%*-7x« 

T}, {-0.03340603320529245, 0.039510700111567425, 
-0.1942650249503809, -1.1496321256077024%*-8, -0.03340603320529245}, 

{0.003399138381560354 - 1.945111890361127**-7«I, 

-0.0040193863832278555, 0.019756417205627885 - 1.9451118821782975**-7* 
I, -1.4301733411142131%*-6, 0.003399138381560354 - 
1.945111890361127«*-7*I}, {-0.0057445323834868795, 

0.006794304679387974, -0.03340602850171875, -2.720917658804306«*-8 

-0.0057445323834868795}}, {{0, -0.005744546691143481, 0, 

0.005744546691143478, O}, {9.735818095504373**-6, 

0.003392839872638108 - 1.9451118908416385**-7+I, 

5 .980396613478002%*-6, -0.003401466933934258 - 1.9451118976268978%*-7x 
I, 9.735818095504373%*-6}, {0, -0.03340603236668552, 0, 

0.033406032366685524, O}, {-9.73581809550493%*-6, 

0.003401466933934257 + 1.9451118976107084%*-7«I, 

-5.980396613477894%*-6, -0.0033928398726381075 + 
1.945111890836935%*-7%I, -9.73581809550493%*-6}, 

{0, -0.005744546691143481, 0, 0.005744546691143478, O}}}, 

{{{0, -0.005744537441173166, 0, 0.005744537441173167, 0}, 
{6.909111431334132%*-6, 0.0033940849529608998 - 1.38036621298314**-7*I, 
4.244042776431861**-6, -0.003400207226271937 - 1.3803662155950352**-7x 

I, 6.909111431334132**-6}, {0, -0.03340600379234614, 0, 
0.03340600379234614, O}, {-6.909111431333901%*-6, 

0 .0034002072262719367 + 1.3803662156006738**-7«I, 

-4.244042776431004%*-6, -0.0033940849529609006 + 
1.380366212999725%*-7*I, -6.909111431333901«*-6}, 

{0, -0.005744537441173166, 0, 0.005744537441173167, O}}, 

{{0.00574452728760246, 1.930923411528479«*-8, 0.03340600104954062, 
-0.006794290669658324, 0.00574452728760246}, 

{-0.00339855474810932 + 1.3803662147039451**-7+I, 
1.0149358463471675+*-6, -0.019756074331108636 + 1.3803662108591213%*-7+ 

I, 0.004018958617976579, -0.00339855474810932 + 
1.3803662147039451**-7*1}, {0.03340600438747675, 
8.158474555652884%*-9, 0.19426493431552616, -0.03951063403621705, 
0.03340600438747675}, {-0.0033957344119806727 - 1.3803662146856199x*-7% 

I, -1.0236118348988868%*-6, -0.019754558322681696 - 
1.3803662108407875**-7%I, 0.004016923980559744, 
-0.0033957344119806727 - 1.3803662146856199x*-7«I}, 

{0.00574452728760246, 1.930923411528479%*-8, 0.03340600104954062, 
-0.006794290669658324, 0.00574452728760246}}, 

{{0, -0.03340600713028473, 0, 0.03340600713028473, 0}, 
{4.2440427552996435**-6, 0.019752908736521198 - 1.38036621470919**-7xI, 
1.7201881085810272**-6, -0.019757726682116474 - 1.3803662120995674%*-7+ 

I, 4.2440427552996435**-6}, {0, -0.1942649369881408, 0, 
0.1942649369881408, O}, {-4.244042755299873%*-6, 

0.019757726682116478 + 1.380366212105206**-7«I, 

-1.720188108581885**-6, -0.019752908736521198 + 1.3803662147040907**-7% 
I, -4.244042755299873%*-6}, {0, -0.03340600713028473, 0, 

0.03340600713028473, O}}, {{-0.00574452728760246, 

0.006794290669658324, -0.033406001049540626, -1.930923411528479«*-8, 

-0.00574452728760246}, {0.0033957344119806727 + 1.380366214703943%*-7* 
I, -0.004016923980559743, 0.01975455832268169 + 
1.380366210947471**-7#I, 1.0236118348967184%*-6, 

0.0033957344119806727 + 1.380366214703943**-7+I}, 

{-0.03340600438747674, 0.03951063403621705, -0.19426493431552616, 
-8.158474555652884%*-9, -0.03340600438747674}, 

{0.00339855474810932 - 1.380366214685622%*-7*I, -0.0040189586179765775, 
0.01975607433110864 - 1.3803662109291351**-7«I, 
-1.0149358463480349x*-6, 0.00339855474810932 - 1.380366214685622%*-7x 

I}, {-0.00574452728760246, 0.006794290669658324, 

-0.033406001049540626, -1.930923411528479**-8, -0.00574452728760246}}, 

{{0, -0.005744537441173166, 0, 0.005744537441173167, O}, 

{6.909111431334132%*-6, 0.0033940849529608998 - 1.38036621298314**-7*1, 
4.244042776431861**-6, -0.003400207226271937 - 1.3803662155950352%*-7x 

I, 6.909111431334132**-6}, {0, -0.03340600379234614, 0, 
0.03340600379234614, O}, {-6.909111431333901%*-6, 

0 .0034002072262719367 + 1.3803662156006738**-7«I, 

-4.244042776431004%*-6, -0.0033940849529609006 + 
1.380366212999725%*-7*I, -6.909111431333901«*-6}, 

{0, -0.005744537441173166, 0, 0.005744537441173167, O}}}, 

{{{0, -0.005744526484049746, 0, 0.005744526484049744, 0}, 
{1.7590992552652045«*-6, 0.0033963591391756977 - 3.514491182394117**-8« 

I, 1.080557573865912**-6, -0.0033979179051160926 - 
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3.5144911856348764%*-8%1I, 1.7590992552652045«*-6}, 

{0, -0.033405975318093806, 0, 0.033405975318093833, 0}, 

{-1.7590992552658855**-6, 0.003397917905116092 + 3.5144911858980317**-8* 
I, -1.080557573874633**-6, -0.003396359139175697 + 
3.514491182221582**-8%I, -1.7590992552658855**-6}, 

{0, -0.005744526484049746, 0, 0.005744526484049744, O}}, 
{{0.005744523898890889, 4.9162407651792694%*-9, 0.03340597461976025, 
-0.006794276659945634, 0.005744523898890889}, 

{-0.003397497174746668 + 3.514491185273212%*-8«I, 
2.584085221296953%*-7, -0.019755476796745726 + 3.514491180272524%*-8% 

I, 0.00401818876163284, -0.003397497174746668 + 
3.514491185273212%*-8%I}, {0.033405975469618196, 
2.0771950132170147**-9, 0.19426484413008688, -0.03951056796092742, 
0.033405975469618196}, {-0.003396779100853683 - 3.5144911853632164%*-8+ 

I, -2.6061747894533596**-7, -0.0197550908122082 - 
3.5144911803625417**-8*I, 0.004017670731206252, 

-0.003396779100853683 - 3.5144911853632164**-8«I}, 

{0.005744523898890889, 4.9162407651792694%*-9, 0.03340597461976025, 
-0.006794276659945634, 0.005744523898890889}}, 

{{0, -0.033405976167952066, 0, 0.033405976167952066, O}, 
{1.0805575711450157«*-6, 0.019754670818158723 - 3.514491183434951**-8 

I, 4.379697836287438%*-7, -0.019755897494741374 - 
3.5144911802138655**-8*I, 1.0805575711450157«*-6}, 

{0, -0.1942648448105502, 0, 0.19426484481055017, 0}, 
{-1.080557571144335**-6, 0.019755897494741374 + 3.514491179999972+*-8x 

I, -4.3796978362002304**-7, -0.019754670818158723 + 
3.5144911836527286**-8*I, -1.080557571144335**-6}, 

{0, -0.033405976167952066, 0, 0.033405976167952066, O}}, 
{{-0.005744523898890889, 0.006794276659945633, -0.03340597461976026, 
-4.916240764311908%*-9, -0.005744523898890889}, 

{0.0033967791008536826 + 3.514491185383633%*-8+I, 
-0.004017670731206255, 0.019755090812208193 + 3.5144911802725186%*-8 

I, 2.6061747894316756**-7, 0.0033967791008536826 + 
3.514491185383633%*-8%I}, {-0.03340597546961818, 0.03951056796092742, 
-0.19426484413008688, -2.0771950132170147**-9, -0.03340597546961818}, 

{0.0033974971747466687 - 3.514491185473664**-8+I, 
-0.004018188761632837, 0.01975547679674573 - 3.514491180362547+*-8*I, 
-2.584085221270932%*-7, 0.0033974971747466687 - 3.514491185473664**-8* 

T}, {-0.005744523898890889, 0.006794276659945633, 
-0.03340597461976026, -4.916240764311908%*-9, -0.005744523898890889}}, 

{{0, -0.005744526484049746, 0, 0.005744526484049744, O}, 
{1.7590992552652045«*-6, 0.0033963591391756977 - 3.514491182394117%*-8« 

I, 1.080557573865912%**-6, -0.0033979179051160926 - 
3.5144911856348764%*-8%1, 1.7590992552652045«*-6}, 

{0, -0.033405975318093806, 0, 0.033405975318093833, 0}, 
{-1.7590992552658855**-6, 0.003397917905116092 + 3.5144911858980317**-8* 

I, -1.080557573874633**-6, -0.003396359139175697 + 
3.514491182221582**-8%I, -1.7590992552658855**-6}, 

{0, -0.005744526484049746, 0, 0.005744526484049744, O}}}}, 

{{{{0, 9.735818017592754«*-6, 0, -9.735818017593764«*-6, O}, 

{0.005744532383479583, -0.0033991383815749716 + 1.9451118922727978%*-7x« 

I, 0.03340603320526265, -0.0033951641706343482 - 
1.945111885512225«*-7*I, 0.005744532383479583}, 

{0, 5.980396603545911**-6, 0, -5.980396603540217%*-6, O}, 

{-0.005744532383479583, 0.003395164170634348 + 1.9451118855109338%*-7x« 
I, -0.03340603320526265, 0.003399138381574971 - 
1.9451118922725326**-7*I, -0.005744532383479583}, 

{0, 9.735818017592754**-6, 0, -9.735818017593764**-6, O}}, 

{{-0.005744546691152506, 0.0033928398726486998 - 1.945111876729495**-7 
I, -0.03340603236667651, 0.0034014669339236486 + 
1.945111883491252«*-7*I, -0.005744546691152506}, 

{2.7209175156896193%*-8, 1.430173332247174%*-6, 1.1496322650794699%* 
-1.4423988992377963x*-6, 2.7209175156896193x*-8}, 
{-0.03340603707026164, 0.01975195648072579 - 1.9451118957161024%*-7«I, 
-0.19426502871643547, 0.019758745578843447 + 1.9451118889551617**-7x«I, 
-0.03340603707026164}, {0.006794304679383288, -0.0040165193210249675, 
0.039510700111572095, -0.00401938638325325, 0.006794304679383288}, 
{-0.005744546691152506, 0.0033928398726486998 - 1.945111876729495+*-7s 

I, -0.03340603236667651, 0.0034014669339236486 + 
1.945111883491252%*-7*I, -0.005744546691152506}}, 

{{0, 5.980396595435075%*-6, 0, -5.980396595435747%~-6, O}, 
{0.03340602850173715, -0.019756417205638345 + 1.94511190058646**-7xI, 
0.19426502495039952, -0.019754280957921626 - 1.9451119073480568«*-7«1, 
0.03340602850173715}, {0, 2.4239635754637507«*-6, 0, 
-2.4239635754677605%~*-6, O}, {-0.03340602850173715, 
0.01975428095792163 + 1.9451119073467656**-7%I, -0.19426502495039955, 
0.01975641720563834 - 1.9451119005861949**-7%I, -0.03340602850173715}, 
{0, 5.980396595435075**-6, 0, -5.980396595435747**-6, O}}, 

{{0.005744546691152506, -0.003401466933923649 - 1.9451118834908423%*-7% 

I, 0.033406032366676504, -0.003392839872648702 + 
1.945111876729911**-7*I, 0.005744546691152506}, 

{-0.006794304679383288, 0.004019386383253253, -0.03951070011157209, 
0 .00401651932102497, -0.006794304679383288}, {0.03340603707026164, 
-0.01975874557884345 - 1.9451118889547509**-7*I, 0.19426502871643547, 
-0.019751956480725787 + 1.9451118957165143%*-7«I, 
0.03340603707026164}, {-2.7209175158630916«*-8, 1.442398899235628%*-6 
-1.1496322643855805«*-8, -1.4301733322497762**-6, 
-2.7209175158630916«*-8}, {0.005744546691152506, 

-0.003401466933923649 - 1.9451118834908423%*-7sI, 
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0.033406032366676504, -0.003392839872648702 + 1.945111876729911«*-7«1, 
0.005744546691152506}}, {{0, 9.735818017592754«*-6, 0, 
-9.735818017593764**-6, O}, {0.005744532383479583, 
-0.0033991383815749716 + 1.9451118922727978**-7+1, 

0 .03340603320526265, -0.0033951641706343482 - 1.945111885512225**-7*1, 

0.005744532383479583}, {0, 5.980396603545911**-6, 0, 

-5.980396603540217%*-6, O}, {-0.005744532383479583, 

0.003395164170634348 + 1.9451118855109338%*-7#I, -0.03340603320526265, 

0.003399138381574971 - 1.9451118922725326«*-7«I, 

-0.005744532383479583}, {0, 9.735818017592754**-6, 0, 

-9.735818017593764%*-6, O}}}, 

{{{0, 6.9091114107490915**-6, 0, -6.909111410747895«*-6, O}, 
{0.005744527287599649, -0.00339855474811634 + 1.3803662143495482«*-7«1, 
0.033406004387465264, -0.003395734411969688 - 1.3803662117515856+*-7s 

I, 0.005744527287599649}, {0, 4.244042768948524**-6, 0, 

-4.244042768947355**-6, O}, {-0.005744527287599651, 

0.0033957344119696885 + 1.3803662117503802+*-7«I, 

-0.03340600438746527, 0.003398554748116338 - 1.3803662143479144**-7xI, 

-0.005744527287599651}, {0, 6.9091114107490915«*-6, 0, 

-6.909111410747895%*-6, O}}, {{-0.005744537441176652, 

0.003394084952967017 - 1.3803662076206258%*-7*I, -0.03340600379234266, 

0.00340020722626581 + 1.3803662102229884%*-7«I, 

-0.005744537441176652}, {1.9309233567112172**-8, 

1.0149358428625417+*-6, 8.158475096886608**-9, -1.023611831355714** 

1.9309233567112172**-8}, {-0.03340600713028319, 

0.019752908736516056 - 1.380366213168904+**-7%*I, -0.19426493698814232, 

0.019757726682121578 + 1.380366210571991**-7*I, -0.03340600713028319}, 

{0.0067942906696565105, -0.004016923980550063, 0.039510634036218836, 
-0.004018958617986247, 0.0067942906696565105}, 

{-0.005744537441176652, 0.003394084952967017 - 1.3803662076206258%*-7x 
I, -0.03340600379234266, 0.00340020722626581 + 
1.3803662102229884%*-7%I, -0.005744537441176652}}, 

{{0, 4.244042766823742%*-6, 0, -4.244042766820049%*-6, O}, 
{0.03340600104954768, -0.01975607433111183 + 1.3803662150737952%*-7«I, 
0.19426493431553335, -0.019754558322682452 - 1.3803662176713295**-7*1, 
0.03340600104954768}, {0, 1.720188110193226%*-6, 0, 
-1.720188110199284**-6, O}, {-0.03340600104954768, 
0.019754558322682456 + 1.380366217670124**-7*I, -0.19426493431553335, 
0.01975607433111183 - 1.3803662150764983%*-7%I, -0.03340600104954768}, 
{0, 4.244042766823742%*-6, 0, -4.244042766820049%*-6, O}}, 

{{0.005744537441176652, -0.0034002072262658144 - 1.3803662102202652**-7* 
I, 0.03340600379234267, -0.003394084952967016 + 
1. 380366207623351«*-7*I, 0.005744537441176652}, 

{-0.0067942906696565105, 0.004018958617986247, -0.039510634036218815, 
0.004016923980550068, -0.0067942906696565105}, 

{0.033406007130283175, -0.01975772668212158 - 1.3803662105692666**-7*1, 
0.19426493698814232, -0.019752908736516053 + 1.3803662131716263**-7*1, 
0.033406007130283175}, {-1.930923356624481+*-8, 1.023611831351811**-6, 
-8.158475089947714**-9, -1.0149358428647101**-6, 
-1.930923356624481«*-8}, {0.005744537441176652, 
-0.0034002072262658144 - 1.3803662102202652%*-7«1, 
0.03340600379234267, -0.003394084952967016 + 1.380366207623351%*-7«I, 
0.005744537441176652}}, {{0, 6.9091114107490915%*-6, 0, 
-6.909111410747895%*-6, O}, {0.005744527287599649, 
-0.00339855474811634 + 1.3803662143495482%*-7*I, 0.033406004387465264, 
-0.003395734411969688 - 1.3803662117515856%*-7«I, 
0.005744527287599649}, {0, 4.244042768948524«*-6, 0, 
-4.244042768947355**-6, O}, {-0.005744527287599651, 
0.0033957344119696885 + 1.3803662117503802+*-7*I, 
-0.03340600438746527, 0.003398554748116338 - 1.3803662143479144**-7sI, 
-0.005744527287599651}, {0, 6.9091114107490915«*-6, 0, 
-6.909111410747895%*-6, O}}}, 

{{{0, 1.7590992531274244%*-6, 0, -1.7590992531286808«*-6, O}, 
{0.005744523898890513, -0.003397497174747721 + 3.5144911848724184%*-8 

I, 0.033405975469616635, -0.003396779100852104 - 
3.514491181327502«*-8%I, 0.005744523898890513}, 

{0, 1.0805575726026522**-6, 0, -1.080557572602192**-6, O}, 

{-0.005744523898890514, 0.003396779100852104 + 3.5144911812819774+**-8% 
I, -0.033405975469616614, 0.00339749717474772 - 
3.514491184827748%*-8%I, -0.005744523898890514}, 

{0, 1.7590992531274244%*-6, 0, -1.7590992531286808%*-6, O}}, 

{{-0.0057445264840502355, 0.0033963591391766696 - 3.514491176201565+*-8* 
I, -0.03340597531809335, 0.003397917905115116 + 
3.51449117973984%*-8%I, -0.0057445264840502355}, 

{4.916240696657692x*-9, 2.584085216647894%*-7, 2.07719507566706«*-9 
-2.60617478438363%*-7, 4.916240696657692%*-9}, 

{-0.03340597616795185, 0.01975467081815817 - 3.514491181828798*-8«I, 
-0.19426484481055037, 0.019755897494741888 + 3.51449117830917**-8+I, 
-0.03340597616795185}, {0.0067942766599453875, -0.0040176707312049465, 
0.03951056796092764, -0.0040181887616341444, 0.0067942766599453875}, 
{-0.0057445264840502355, 0.0033963591391766696 - 3.514491176201565«*-8+ 

I, -0.03340597531809335, 0.003397917905115116 + 
3.51449117973984%*-8%I, -0.0057445264840502355}}, 

{{0, 1.0805575723771528%*-6, 0, -1.080557572377735«*-6, O}, 
{0.0334059746197612, -0.019755476796746108 + 3.514491184048425+*-8xI, 
0.1942648441300878, -0.01975509081220835 - 3.5144911875725066*-8xI, 
0.0334059746197612}, {0, 4.3796978366198045**-7, 0, 
-4.379697836606021%*-7, O}, {-0.0334059746197612, 

0.01975509081220835 + 3.514491187613718**-8*I, -0.19426484413008782, 
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0.019755476796746108 - 3.5144911840904905%**-8%I, -0.0334059746197612}, 

{0, 1.0805575723771528%*-6, 0, -1.080557572377735«*-6, O}} 

{{0.0057445264840502355, -0.0033979179051151155 - 3.514491179730511+*-8* 
I, 0.03340597531809336, -0.003396359139176669 + 
3.5144911762108944**-8*I, 0.0057445264840502355}, 

{-0.0067942766599453875, 0.0040181887616341444, -0.03951056796092764 
0.0040176707312049465, -0.0067942766599453875}, 

{0.03340597616795185, -0.01975589749474189 - 3.514491178299842**-8%I 
0.19426484481055037, -0.019754670818158175 + 3.514491181838126«*-8*I 
0.03340597616795185}, {-4.916240696657692%*-9, 2.606174784387967%*-7 
-2.077195068728166%*-9, -2.5840852166392203%*-7 
-4.916240696657692%*-9}, {0.0057445264840502355 
-0.0033979179051151155 - 3.514491179730511**-8%I, 0.03340597531809336 
-0.003396359139176669 + 3.5144911762108944%*-8«I 
0.0057445264840502355}}, {{0, 1.7590992531274244% 
-1.7590992531286808**-6, O}, {0.005744523898890513 
-0.003397497174747721 + 3.5144911848724184%*-8«I 
0.033405975469616635, -0.003396779100852104 - 3.514491181327502%*-8«1 
0.005744523898890513}, {0, 1.0805575726026522%*-6, 0, 
-1.080557572602192%*-6, O}, {-0.005744523898890514 
0.003396779100852104 + 3.5144911812819774%*-8«I 
-0.033405975469616614, 0.00339749717474772 - 3.514491184827748«*-8%I 
-0.005744523898890514}, {0, 1.7590992531274244%*-6, 0, 
-1.7590992531286808**-6, O}}}}, 

{{ {{3 .59873588837610011167537782786129215714082862323079378677208162187476\, 
7709444162107727068343367350954559175340832395024567193976670964908'119.87019\ 
782302441 - 4.062787305450733427417385230512537435443874586702672862026481307\ 
97795529584741599603561265364881244885782714630860700645687857296 ‘112 .9228719\ 
3491131%*-7xI, -0.68264109018449290880907941139228460426949206411469979090098\ 
5028913421004436429104824130275193209660661528531953015216475949304786029169"\ 
119.63286879837787 - 1.072630085593226609613577993041953198680504718460507499\ 
23699717175573677328146885026946527368949324764098475334935999333076116536 ‘11\ 
2.82912634625784%*-7xI, 2.514995166334721986703706366320202809705829938755208\ 
35086891629335127920144109376979977355509548702432849627154023976494949487632\ 
0815996'120.12968458929437 - 3.4345271088110465920493773114574959670256475232\ 
07035075431933964267458878161770716472832696731452027761921964077120333254847\ 
5054'112.2650143832123**-8*I, -0.73670216555557370941151375485929414421799859\ 
11080912721311648422238958142665567480018249971264843442068456518374606796889\ 
60311085121936‘119.66405190377995 + 1.267264458117114673587537308720614600177\ 
19845448393607819607870182098894284973152909514211713693641189594923734270528\ 
787585826756'112.89962721205715**-7*I, 4.155897137204208196936393973873377051\ 
62281456851245807782672225711104256714158806064046012999919093313371351730442\ 
6828809515114408117335'119.90869738639329 + 1.1153726644490495422408329374258\ 
12365778012270265252727018058442448093345694005805167683800248488888235368145\ 
37451651233484587327'112.33745259321495**-7sI}, 

{-0 .6826420490394630787591126296308406460480620340062932650446892352108\, 
66897962477709549793509945919317980122846167435738078668342646344427'119.6328\ 
6934382994 + 9.11445404848110332895559437993884745178374069868158003816025517\ 
1633922609970384199750796170072255415874331964620938479984776002'112.75840696\ 
734613**-8%1, 0.4706537957382305773373088052207030296083953757752211806767322\ 
75288247647759453810489323840536758207101097543366406570872840951517185997‘11\ 
9.8367651610188 + 1.567893313672874384122538627601357176867301743170888144008\ 
7504254721681922776624526606730909898757540511722121172668958166350296'112.35\ 
93801035291«*-8%I, -2.3150263138247628652462081565464401820260299691055968342\ 
57295542889577224245246370983426772057815857194506249796771575607921792679768\ 
026'120.14325205639484 - 0.21533733612608888351589352681664125237750215212763\ 
84538006293821994140528378113359699349921918105095411403181995506661550601323\ 
25772776 '119.11181546081262+1, 0.43974682066418142184198410707036498730633191\ 
76588583845387965676556269763098618343750210112251119030518100501510048513071\ 
39503701785115‘119.842094029205 + 0.00726446600841732008805893025888769668452\ 
94531814407819877283138947339276940024638184285453707990483577258163516417983\ 
66890909475835013'118.06009501695455*1I, -0.6074082579646416652813656532824175\ 
20153136807318101554467323754293058083490968536096599198728554922100349171228\ 
163998832303907294679393'119.59365012260324 - 0.02658876278446807360379287088\ 
51737888054914155718096777244089189429844443380460737651469255068775367798230\ 
53285405215048915746203635721'118.23486755998867+1} 

{2.51499532928532895234364535241021967758804430366647639142902107628281\, 
3575778281463168258409385879557510678442526924803769268296810431819'120.12968\ 
458480158 - 2.730186518979951295732245260085828871432378529873914023431242093\ 
1045585736785930916021049878369262390313969542857246434123427715'112.16533971\ 
983938**-8%I, 0.1863457176965724070758184896471271042771999668806428858284921\ 
71499423185933887253020430388781466455292591759638875399958216864598626817 ‘11\ 
9.68290619201424 + 0.21533731537807963647139755796313497286351018205482184721\ 
00944338194484058448410246573013151270002419523734924410566648796016506638048\ 
5°119.74570606945856x1, -0.12983818681813899236395052960671400561166637321534\ 
74276955958580250669274561069281802211899701580368982281318533570108250081793\ 
2492445'120.14766044744225 - 2.1863402315765193242123870549760430374609879394\ 
05461799559047622217650887672856968855807755480651929550331338829548340907394\ 
601'112.37397575192712**-9*I, 0.217460297467140290622110119571119143106178376\ 
79180472563837145071227797416560275342816999503978796323561233716111556479353\ 
0133255068061'119.74227448140866 + 0.2071228406446111927897052344243442312303\ 
01348706939859413289849403842014492269285971763239204232393459715145430300558\ 
301839755827783029'119.72112249735642%1, 2.6169613321921185677082000164289876\ 
29240237918228947598515857095923403922527434523716026975861072026521179813681\ 
75418193596516039437405'120.12818167963985 + 2.806813547943560700076204952348\ 
28444493601839156728520394863519706136494022497458227743936055893975380143455\ 
25780575317059519549'112.15859793813623**-8%I}, 

{-0.7367014149182187470300710228953427427638817739204645292224289125912\, 
63961154096432573815729479398652317135244236526140743855036463788276 119 .6640\ 
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5149926902 - 8.29416254800737890215434565916083485254523253561745522143303985\ 
954788620779806336537168643348354616131258404114374780390186388 '112.715532537\ 
66459**-8xI, 0.48347773576682084276712188980495546731157060775513562827997632\, 
2837946835620711060744485213821074763744194336527792699192929091689193876'119\ 
-88100862359478 - 0.007264460322160707063030831120015226471985988678014381377\ 
14045570769773328675368373775228867087687210911170035382301769640581157139875'\ 
118.05783550008182%1I, -2.3339463364645197334294036281815016721268756903784148\ 
91251771958897411411297374639184562732022296441798194492505047788380776938882\ 
525824'120.14402862296417 - 0.20712281507682613123313017557695032336317592405\ 
98651671315946461235666966997006611994474066700488402854429219308766538006953\ 
49860201548'119.09216569681831%I, 0.46241214798501875072718309935406661002558\ 
63212161225139930155914044928054284814025726863243587399071755041049366897507\ 
19906385411535369'119.82055958934033 - 2.473720956897886375987043105125981958\ 
87875358162352391124991155675723834554516870703812283668782713621631244237343\ 
02582183117874'112.54888106281255**-8*1I, -0.830876104375286234843142360587131\ 
06583088567926352681532190754438434122873497315224695258320486615105712556781\ 
7453400764826925850277329'119.71636868212029 + 0.0265887553902630166176126564\ 
76643155387165000768542886208276425784149035771950130338189353551385337590677\ 
613143793640862875689964559663'118.22153042173109«I}, 
{4.15589940467512074249016949185368710062644754364511766982633639684652\ 
5001486593767729329289765096113430786051088144599012510914630174125'119.90869\ 
751427421 + 1.526071892913206291627909693754923323885783900188794151268601445\ 
07464652715934097355188974775018449723483640722834620449501465562'112.4736074\ 
8116466**-7*I, -0.83087605319305888445475324887748908308593486345530211425113\ 
4577974769307932895065205638445061217130993319414363597226380202916473833081"\ 
119.7163686969217 + 0.0265886720477335695652320138355154501200361613297898165\ 
47624725495518706461942809901507816439608948472585925685269254387932904000016\ 
342°118.22152910198575«I, 2.6169616884447196577709801745392452178439699048750\ 
16706116488723630697335026546319834193797187447177530650406559006072124676207\ 
542774794'120.12818167789794 + 3.40660439257827110125850637676057311189284340\ 
11189511649504239348172321918252869552292121218278202356909319481078912938860\ 
807723'112.24270601523105**-8%1, -0.60740852380685275329676550765374320022677\, 
77936147318976313247404560801666631776984206962766469540789467971650136538854\ 
50270248610134228'119.59365029995018 - 0.026588695826643271845872557431415638\ 
58997271852133518554478794776457560670551276761735942525017707825996151913038\ 
8921176310219902205585'118.23486645358508*1, 4.155895360882637725820009049707\ 
72990201407482054414707121357559167383963109001028763162634882452172352498602\ 
300514094583207364317132024'119.90869728786451 + 1.52607139966175101898453209\ 
24197442771481588626142403461526507491064892623064867836348272601944804295834\ 
134946372198195248307957'112.47360753696329%~-7«I}}, 

{ {-0.6826421485087161827197098216474666348881144542822628445617376469908\, 
10312400721171928815449983020846535286256195076230527078924926949165'119.6328\ 
693875421 + 9.933631317465629550115876670970959002739343343442767771654094487\ 
8212145688438361889757526696331669410574688300803832242379324548'112.79578432\ 
534373%*-8%1, 0.4706538889770054636586668760810178598140246943047077798733653\, 
14778061132729005740482470782249461527744776016154886830829732386852685326'11\ 
9.83676552171893 + 1.29634374423362679742479119747895269181438424435593546318\ 
41345556371444729945324689742843798421755669001739951075371631885903309'112.2\ 
7678404638665**-841, 0.186345652397372100117573361218277620625649970831640125\, 
50476013735542772587255078581768436999661604511741247985180736987987147372772\ 
4545'119.68290609223858 + 0.2153373353508194989208244071951712072318046669003\ 
39785191460762520365556876176611582031112140630530594620449146790112606668373\ 
495954116'119.74570616214945+1I, 0.4834778067555169494950443132205936415698725\ 
22807953720926169986441585171613766246194185859870584860653984564318068413145\ 
896555498546937'119.88100842513697 - 0.00726449147254816690871958336396619893\ 
88114565621473105469010506654142503519362089717303679764167708632948085334872\ 
22004526027445438916'118.05783710013041*I, -0.8308755814561085992167785164057\ 
76010432086887452714655730156583577722155810896564988936746430042025773155166\ 
940536777607933432897472153'119.71636847429109 + 0.02658861328168746572234427\ 
85613043621004316150003989253430164022616732328350805666599103203132765875481\ 
17039433647867517679251648233345'118.22152816605474«I}, 

{0.47065402081085457009394974519288782754546224579329481264161190546042\ 
2193836856661335812881849312248789961687960756461363918084868320699'119.83676\ 
550062575 - 4.096083279203560278508249744171277381305672488535846152378517409\ 
6660806955983447066769691713076824032041744273041993025513829264 '112.77643250\ 
527812**-8%1I, 0.0520280946225420041892275815607360911415872204207182469425618\, 
74418377898959884732690794343626950160170964861277894996706062478260553256'11\ 
9.34360513776954 - 1.10153456290748622046838964943984966194667961908051586742\ 
72348115147139161365590873971184861984001509448216815897048680166682966'112.6\ 
6936534493422%*-841, 0.166354486063591757212084495630379233332169228353076312\ 
41671430483288323307664294505280052190215020448294163642254643969944552954814\ 
1067'119.93143741004288 + 6.1593200859873678279090545211373439425352386537455\ 
11255734069966410793081879917223489466828094409316362336816621273760735569306'\ 
112 .49993566708983%*-9%I, 0.1056144729707583081775780461915413102435322639008\, 
74763908046870454925941289884743625734393344050938160684341319398135673357221\ 
15599416'119.66911696862387 + 2.990684071876988575199342294636224811064773235\ 
06634734611019873301248218491123036987886631174182431737518958106619982761851\ 
3125'112.12116407013713**-9*I, 0.46241207179641813902128764594545405496861547\, 
57712675785633902188721232460390690769989683769709013055590486620752116322174\ 
91070857288953'119.82055963487956 + 3.320740294928401398467453625591310125435\ 
62692514208137662062044273599628090069677683930203239942004581118459229173853\ 
63370103392'112.67676538363091%~-8xI}, 

{-2.3150264716820014170606226431071758965183092905618680798825934501878\, 
49233221601623841005847934441473115354725579043856692561831209416664'120.1432\ 
5205889897 - 0.21533731782712274208363689128256909156165518035060282439168718\ 
1975847009499272241473052978474980147671252251187465355337773132851806082'119\ 
.11181539679752*1, 0.16635442675541277958419869349231208220105073188651256055\ 
89495185602812535112214087598232844580530586925272848142704510209523420619203\ 
56‘119.93143738616044 + 5.625660911274935044019351567687658519345987625152667\ 


B.1 


Example File of Results 


91427071375001137480346669292459701661809808297270159968884696677091653051'11\ 
1.46057657542102**-10%*1, -0.4447120314223520074258291804584324349729221820068\ 
31135725077434424928163681502523320834454609215638145630151432514602668458072\ 
331236219'120.1505095025467 - 2.221862030902410439496222712864366517342681837\ 
50763469298619126990721717494130226582512902346910184943147206331564163545405\ 
74°110.84914771078013**-10#I, 0.168480188005244122595399017153778999156321017\ 
49645232534026334276404666598653236585502403266560759863201169781910284139809\ 
6181482017488'119.95871000609154 - 1.8001468088931798686788270110462942370497\ 
61599708234084990732276611910109893068114682156469655611087190609431901951545\ 
20111079'110.98746909255762%*-10%1, -2.33394627738965232949007965315681341603\ 
26880980511818259254772834983561951511576817921789389137804596872568821504293\ 
80957406298979913516‘120.14402862184276 - 0.207122835519514915503296559294828\ 
14542740051022855486722591897017212134644099851317095371097807577125471040981\ 
3628354186570404937286058'119.09216574955357«I}, 
{0.43974679606992031479995377404329082043481466488082159869306964178435\ 
9009925511195175181830691200163208140058606032412376341438651879656 ‘119. 84209\ 
391589869 + 0.007264481462198488021038099795663360627391006601504772101406292\ 
402994908203117808409861813035027319728520885239312482924813975732956586'118.\ 
06009585181617«*I, 0.105614519116937344989689836192081663756557346546610337928\ 
53778870332894432271411204950205223159451663297066453967558846055077775829563\ 
6*119.66911715693426 + 3.3383677522869711634541487282605519540941527482593199\ 
06014271576971577458743402779608868080366069052406395082299015013172120198'11\ 
2.16892770754033%*-9%I, 0.168480121097900879103542397874180884390463922194757\, 
67004725597498951488314621249988447574752208287737073428963351320855308554766\ 
8642735'119.95870998959502 - 5.1136844864428670190796500901271103864299131878\ 
05046969733572499106741174420105970730956735743269499402715104374439492094210\ 
786°112.44089525221034**-9*I, 0.105614430981075967153430510274154075754047973\, 
62457634119713191808085965116277664130665687278504426049762983531955445052507\ 
8641918948859'119.66911682907786 + 3.3383664554308109395713102988734713572142\ 
23545679094085330527172398965978233460756028505775446914745379566395353643306\ 
07077634'112.1689275733946%*-9%1, 0.48347779877798703279028665917423303279020\ 
30231790195702130373711513559461733207595415111741123313854803691939915883212\ 
11629690974248643‘'119.88100854327097 - 0.007264473303270252930552561873680748\ 
56723357870039156169287405021790603870118388753266556096127634390469607658819\ 
6577848991471442215829'118 .05783613921162«*I}, 
{-0.6074089957715245658821993376893871786991039419900903534238666661295\ 
63244420470518749802136030595707362819300790438959326718892020178826'119.5936\ 
5067486807 - 0.02658862002240669170453055249255065557379758808089236666021702\ 
5921855830832164946033262328351895490045619057189810489712181479786360374'118\ 
~23486525287727*1, 0.46241221307870244622094610280020927469231288109363745791\ 
76270544771890684790249524792526486767623060569243964844561411803773841450510\ 
27°119.82055990359284 - 1.620941492701525423416760740379573606319576600242740\ 
2708647543306161607862109497050294251416016909548224805298612945765271809153"\ 
112.36529794701516%*-8%I, 0.2174603943687197094532145969617603043274808416358\ 
63401813133811818557653739795050003307877739187783935360425438473363772077445\ 
978311134'119.74227472090216 + 0.20712281257902212068876054243369936902832187\ 
38921438614962143825692577547341824321510810800503264749521358902484660887166\ 
62127835836818'119.72112248447796*1, 0.43974667310987028420701821136795157511\ 
53399562103947755009294324910803694839290408608336415216020465262835826298114\ 
77547017966615035651'119.84209360587668 + 0.007264502971101039186360887161580\ 
01959971492703814637113842238550254861690080095562162593885442521292113746355\ 
8190542796757736896694088 ‘118. 06009694910037«I 
-0.7367010152318800932199116722998255188510693551323282114926142569439\ 
35490737708183194038657277790600090291469626835208263080267822669666'119.6640\ 
5123187508 - 9.04799081475573964065802727675632461794236681058756263838006417\ 
88729666031249843070707231005697650448312179745473469638041136339'112.7533121\ 
1456297**-8+I}}, { {2.51499489262175262543385848002093732976908757885212228866\ 
26576917992001120168006237891029503068884377010817776912322213611779091260270\ 
25°120.12968458497943 - 3.085099176288256025719532764202801602297950283828090\ 
8340862654617497425210117329462282737415787231206298588503271773297263003225"\ 
112.21841660734194«*-8«I, -2.315026294512690853273940080686062739620238936916\ 
73798488405477718503424929542161092714587876052784989103133403994562400476048\ 
1414426827'120.14325205555282 - 0.2153373591492162542059615653244564552745424\ 
47434475588848955449122448414075423229176218976777630771220519530884130486587\ 
331318195034159'119.11181551002679«*1I, -0.129838181942537820884089868511099312\ 
01629094841743974121436758068093579216315755462936499961930551043619514695644\ 
5591599607070666903855'120.1476605888717 + 3.56977821529109371003352820780061\ 
56704212960479402164091666481810243488996863187565553336707954877584181823328\ 
69400776078859746 '112.58689939813067**-9*I, -2.333946420128997763971589882813\ 
79682869495002068844530297528600434365427263460680508624534513660312207911303\ 
477932006688589293475423511'120.14402862432298 - 0.20712279738620408705019185\ 
04478537162992499125200532182301935082455188048904857615318579763960750845177\ 
17998381726542873911404153284471'119.09216564551541«I, 
2.61696177796819231694961451333382724952462632227181091233371880373476\ 
8362546312401854942963865399047576918204199558613131625553881187002'120.12818\ 
168108356 + 2.451901936119812477096010759500437113370794792472590964510299342\ 
5049580328067525459908265176885549315383524410786380548789344476‘112.09988739\ 
805974%*-8xI}, {0.18634557813526735069994887966173578448850032621815057010419\ 
2197048176802500105941219524881954917200677317572398451453359292668391630079'\ 
119.68290589265526 + 0.215337353819199455430727336744203085546272752474974204\ 
82914077229431019703959734579194495365206601004424390780152477206250476914804\ 
3313'119.74570617288755*I, 0.166354479913077926970126962170705317874769044258\ 
36597418975835083550784854292636453694716459354444266535911756697830126461457\ 
5860872647'119.93143730867587 + 6.9046689887490746053463119250071145498029665\ 
54638495529181781536202219906047023273083039718166540849944982199143713455825\ 
09808°111.5495456710442%*-10«*1, -0.444712017245185825574561719268266599141338\ 
77344509217238785143253107774544310623610202869737995469787130942011736542570\ 
8872056864215743'120.15050950258033 - 8.4702145929539992382819888476004941090\ 
90244860993090548335570269039857946949336640316186743339587825465636460986692\ 


203 


204 B_ Result Notes 


89337664422'111.43032505056006**-10«I, 0.168480114682355953641748952079175610\ 
60208575160227431004552716703549112281426747837767048759088284284796100701035\ 
0416204240995539706088'119.9587100369599 - 5.21146218434696087381714657635395\ 
77942529277713963941408768411700506880391813363518606220473268284454904711756\ 
126751813328592'110.44912097826561**-11#I, 0.21746047954824688413336290653269\ 
94888454513250102737535737808069070455505291308942941325053562640494751705434\ 
60309856415248696501421391'119.74227486279555 + 0.207122799630327548340456065\ 
02699223884529085945212894131003277856905594601235988605155375889779023598073\ 
449353011944303349161585464274'119.7211224291069+I} 
{-0.1298381977392124319755848250547344475218020983965112411692824941286\, 
24493363941298420332913599177555094708293798288747522186742112003528'120.1476\ 
605635195 + 1.379345296559642253930554931582294644830286549144263709783162263\ 
37176912148401994373752198410382304344358450403845589642617157'111.1739310833\ 
3769**-104I, -0.4447120264101480292220628799842990266270850659861691795599333\ 
32883446834517790250202611019425918008292498543100464286911271035174452439'12\ 
0.1505095025799 - 2.412846654223590391514445992303271793897748796966999472142\ 
32952890695483251090596684897956403633994604862387205984992805999585'110.8849\ 
6034996982%*-10*I, -0.3052185881001036777285703893620970266394757963926404014\ 
36629855172362804271698535667555925584670307642322066526680750468841014897601\ 
314°120.15051499783199 + 6.30219540188941044389992111017768785816470613301347\ 
786245619549013526005524116211411467662865728786977854499644510130299656118'1\ 
11.46539588330694%*-10%I, -0.444712026410148129692232266817189330156824314579\ 
14552178891692812092632979832535051190026854053325596090225311718604103470771\ 
4774986782'120.15050950257991 - 2.4128467471064817062625891666767760769171117\ 
37382167649636106953497969752456530053315464319654994434720584679582848079180\ 
15014‘110.88496036668808**-10*I, -0.12983819773921250962287122106395173697650\ 
96457153448072312486199206631112080203033095881871039346386498556496203394706\ 
08272159596133822'120.14766056351948 + 1.379345183917505301353503667845394115\ 
65928143707807153136627897478739649954627330726890098355251637078947752403739\ 
625648218802'111.17393104787168%*-10*I}, {0.217460479548246950371037881963984\ 
87450979782377384347996120071614365124102576555018504562367126928725966651000\ 
0024236398863314560763598'119.74227486279555 + 0.2071227996303274870895385864\ 
91993415057035683836970548209158288076826001142312611531818501681824182668394\ 
291061919888892868458742136757'119.7211224291069*I, 0.16848011468235596267889\ 
72542340318042030766765442497884358901508543609694349639077719396224957393127\ 
96328448169285125911302995736964411'119.95871003695987 - 

5 .2114593270984666596455556952004180941184907141225612464916611204325\, 
181246068365585942928530528950354237466172741302319606192'110.44912074015821+*\ 
-1ls#I, -0.4447120172451857967683809617462564801451533396866252540588311317394\ 
03906164933988572539187672809153537415157543848051134204379566450612'120.1505\ 
0950258032 - 8.47021487076843643638867831033213594701756575024118231798889890\ 
858928517495835577334322121081756405851932146031977045223204437°111.430325064\ 
80448x*-10%I, 0.1663544799130779838096058609459208869527634143861582577216641\ 
28941292755813317817129170845966264634065583194198516219617175259439161558 '11\ 
9.93143730867585 + 6.90466902283273416721756146197399018472314045432325801088\ 
002447833853938798023284164620456731255262427076165179768345186539023'111.549\ 
545673188+*-10*I, 0.186345578135267262501153649901907796464980196204362683989\ 
98070034257330919362582433828963917601919407766809939320816344835826607724019\ 
5°119.68290589265527 + 0.2153373538191994369159224499647010284464458129938901\ 
16967015181282816659260482362626534269355763996115979029352210094713022141492\ 
345469°119.74570617288758%1}, {2.61696177796819278795429350805922932524908202\ 
66290262310625243933175078933219144267044114935610502174237732094034297134565\ 
85785092503596‘120.12818168108356 + 2.451901970325512101412117612680822640214\ 
67067798153857560737388985874374883358497178373636499700848150405233916093729\ 
92921843474 '112.09988740411843%*-8%1, -2.333946420128997577365799024298888990\ 
10871198005290057418212137964771841785537529988842905073436755220995336243040\ 
6572433770962828526093'120.14402862432298 - 0.2071227973862040948692290277703\ 
84161151789642482258232175721476716677641091730671439817343024349731866264799\ 
513843723915131520720289148'119.09216564551542*I 

-0.1298381819425378364638950213528687195060229716506306527940517148923\ 
88259600995128553222484489215293021120937674105265635937133086239128'120.1476\ 
605888717 + 3.569778190188908458358426552275643528951977081181799484918565197\ 
356448365511198517533356871281508661879102813717204435889458387 112 .586899395\ 
07678x*-9*I, -2.3150262945126910156892435469621493648467745890691513512185430\ 
98584659141560516888916757060803465413841601324096056080829841400228334597'12\ 
0.14325205555281 - 0.21533735914921618487220206807013820537513919443340956031\ 
07019541173105386841704078656234824840094357849702374188688888023269626733605\ 
66'119.11181551002677+#1, 2.51499489262175203502374956988432470219314504610283\ 
69248538745418201669584978133146120033004274445626060870625384722033514645375\ 
71600367'120.12968458497944 - 3.085099203210752890198015525288503393498420861\ 
41737831145651376382286291629718974106225481074954002226587382692706847714048\ 
17747°112.21841661113187%*-8xI}}, 

{{-0.7367010152318808781385530186752214825265302573214739576892146409433\ 
29745534904023113750321229068717139509064976769958231119907455171944'119.6640\ 
5123187508 - 9.04799084547949886818470477531773971019842963738766103547994361\ 
11877592106061816540828473734125705068402768548384475466424896551‘112.7533121\ 
1603768%*-8%1I, 0.439746673109870555017638167639318473058686981932633604933836\ 
420269389345695880319918466541624576065335968482342057396958730447066968911'1\ 
19.84209360587668 + 0.0072645029711010218627386504383857572328941579243825240\ 
58328786337163844896305127547299662724637713071968908981668688732739252191030\ 
343°118.06009694910037*I, 0.2174603943687198701871253777570054518622985239595\ 
97760717754794299498239936967273829124396821192711380308849798803771840925888\ 
356086796'119.74227472090215 + 0.20712281257902210167437442401149346746611256\ 
65582420364501426444949871939231961496853068860045008751013993068574279708717\ 
01286842348581'119.72112248447796*1, 0.46241221307870260881156490975146853052\ 
34132457119523801671828812756654953314249064494628152050613662561921172964842\ 
91171251937143813591'119.82055990359284 - 1.620941495498550321987554847434891\ 
43737294203041967183170829726629380799363537885916791670116408667682336576941\ 
75502772099531357'112.36529794776457+*-8%1, -0.607408995771525204562429664602\ 


B.1 


Example File of Results 


59295707093529548621942654804479010911429773071765676737483326169866255058562\ 
5218302301351149938168381824'119.59365067486807 - 0.0265886200224066470362654\ 
26306622488431162248841897889136879039134561938853439453735363286484185391234\ 
710342679417042649000816977820161'118 .23486525287727+I}, 

{0.48347779877798705530920949605029566738180017122137976498068252257833\ 
2110766231006555045260420819048755250839873507901127224447195366877'119.88100\ 
854327098 - 0.007264473303270224207383213578374161363902617473448883957028923\ 
694349331110416688206250205441631822968367478425567679824062310075506777'118.\ 
05783613921163*1, 0.105614430981076116519245749280308204012743532351545237336\ 
16314867843332237379292619463547484880891501591257555379950374867015799901167\ 
3°119.66911682907786 + 3.3383664741155017892758046484347959122393196441036561\ 
98347710209494663488816243948936765438291818870399006093461863757225299605'11\ 
2.16892757582534**-9%1I, 0.168480121097901063367145005606995544842137398782090\, 
98679833602779089073439408355302463368505749984584691607779570076089047538680\ 
2607947'119.95870998959504 - 5.1136844612572352057465483325295554316292341038\ 
81129623307797794946388744971137171851571373873712886814111959664388008809405\ 
654‘112.4408952500714**-9*I, 0.1056145191169374024896893460300348493011319848\ 
83647181339801572684580245716103303603180150845349603225666823037204247018410\ 
154647434441'119.66911715693426 + 3.33836774382813491986032176868612123971307\ 
81101198910831905673610490348721570256545454418958696007401172077430551625781\ 
07290318'112.1689277064399%*-9%1, 0.43974679606992060407641795769342536548103\ 
60925313877346696328218670678570015586443143554242683078254663414268471193481\ 
17085506920142536'119.8420939158987 + 0.0072644814621985142015842019304404661\ 
66915981892538116354266487050143750853892931303342070516546829786836272910541\ 
527489487050801154632 ‘118 .06009585181619«I}, 

{-2.3339462773896523761782398920717740030691780568192241021774330345327\ 
45678611441150652499145728485483596865409137128159831823852149359305'120.1440\ 
2862184276 - 0.20712283551951497648693328705325547227191438632438886923961548\ 
7100741763431004935644023668577732832797896192717430464744791214144291062'119\ 
-09216574955357«1I, 0.16848018800524432744901586254398104929158486062688089381\ 
18535035658984286254994364261849580563809872329960607438474903067896278797886\ 
39°119.95871000609154 - 1.800146880743132066336030120380805625331848228930366\ 
2227907005199341940509847489455944393660458020999236362109001834523385958'110\ 
-98746910989178%*-10%1, -0.44471203142235185928623240766264582941797432676216\ 
26324378319538415572312803389525291537780160552584661424425849440082373807837\ 
31224691'120.15050950254667 - 2.221862215631447601021041315038128282224054500\ 
82863756720221042571409998045039075823175092707902086629750849033816898631696\ 
79°110.84914774688802**-10*1I, 0.166354426755412914300457523116176154495626548\, 
18667199707205953872312124369647515436843133707962020804596699122004023473784\ 
7825766272453 '119.93143738616047 + 5.6256608803027947239295429539948541653519\ 
02221151182587149753767791759777413266109655231408614712172662067713685455282\ 
14655661'111.46057657303001**-10%1, -2.31502647168200142371683784880337680965\, 
29410600873946723722408218695011923371696638712979886630530088055717026301516\ 
69327766858216197651'120.14325205889897 - 0.215337317827122781931095845579661\ 
62087315954104691016254224712646722067954244215882988629669736197719269090754\ 
7389776635684862835575722°119.11181539679752«1}, 

{0 .46241207179641827985301223828771508282782290566025296566503021781574\ 
4931735288982763542417242387329803163139610430786048641147014435406'119.82055\ 
963487956 + 3.320740297974657090831110785846559460360077105649841272798329634\ 
065680364146930092910142047987364354496271890810357786 9802589346 '112.67676538\ 
40293%*-8%I, 0.10561447297075846431545598881833033289313885020528831122678660\ 
9748364579637836697250744254752205139704986590699184608996331127611755486'119\ 
-66911696862385 + 2.990684046505043069769292304222127029959280311780367555963\ 
858404952788846695970232242650476932163785989240185142511686666625785'112.121\ 
1640664527%*-9%I, 0.166354486063591913842868808496763308599501834917172238593\, 
39592131438496273421209918241440346344685607495868393185531420636601211345763\ 
1°119.93143741004288 + 6.1593200868473246592234216894357194456610950070903809\ 
42553496984696532696583151922205687054572749684361262062996590798113051389'11\ 
2.49993566715045**-9*I, 0.052028094622542078206281408282062778309889855566165\, 
92342903868306502646986967025057289753541387350451132477605736133562083494640\ 
400655'119.34360513776954 - 1.10153456478368454374230243623837127861944371175\ 
42070182368589832733945019870821086916609106844974002664462281055976921581102\ 
357°112.66936534567394%*-8%1, 0.470654020810855022642566235934391943143457368\, 
23785488776043731303117798769615792830821182526613852475324983220203024903523\ 
4862512110666'119.83676550062575 - 4.0960832795399097553131381989688495514144\ 
80386120941447187364716994475988502368115324627783058807990793979930966771473\ 
4173581952'112.77643250531378**-8«I}, 

{-0.8308755814561096138616208309074966028532994105276990415147752691772\ 
92753384448854908948940634342158728722240717386349591438743954162466'119.7163\ 
6847429109 + 0.02658861328168722614700897335744373927028964610642857753816701\ 
8663290970563707686991368349364710701169939217962629313712715219087265708'118\ 
+22152816605474«1, 0.48347780675551735840385807104206718488332725356131678182\ 
52355331202546105801004377720683907241782168412812727222137426386875637003733\ 
11°119.88100842513697 - 0.007264491472548231994873889102507326489922061478273\ 
36591987965818902351130124125797768107140592490281187391421509787708245802879\ 
2135538'118.05783710013041«1I, 0.186345652397372165430914366159509398563785116\ 
53718848093238288030219783557312364189202370957289250940001414047215835604381\ 
7074802200266 '119.68290609223858 + 0.2153373353508194683145438297166387506631\ 
53957789871067289931605597430959298869883199140878362098454525650199772861104\ 
885007052293788229'119.74570616214945*1I, 0.4706538889770057328517231107833942\ 
36564666019383983132707218275271600373739104602083201155596004077520642013900\ 
538053909865297866107586 ‘119. 83676552171896 + 1.29634374357659782162324165167\ 
38267520730469766392940368646265311714589003024273263438639230794710218942740\ 
543308918013725498469'112.27678404616657%~-8«I1, 

-0.6826421485087169043947487784285657347533921287914149419941641488625\ 
07073111728446245450580155613123132780509926918515483221724750631326'119.6328\ 
693875421 + 9.933631320696937518071656818413283788269095291231737028992561146\ 
0319285645207161775030160647653729618780503706167329354106719073 ‘112.79578432\ 
548502**-8«I}}, {{4.155895360882638296544849665358650404058359536542401675025\ 


205 


206 B_ Result Notes 


12904302737303594562328336416264844732322652570104002287074866101417673935751'\ 
119.90869728786451 + 1.526071400250817832326707855178922824508886620919255331\ 
31392795036690239520810958834569083865822060198588100338957855674036687173'11\ 
2.4736075371309*%*-7*I, -0.607408523806852565908750741591246807749666556583988\, 
37926908077780513056027623373236796687653468670486639721419504508780689520249\ 
1893885'119.59365029995017 - 0.0265886958266432241179965327903539049550837897\ 
00961237476754429239945121416779463758587803082004585476401569010649711541378\ 
220450189884'118.23486645358507*1, 2.6169616884447196147772905470103355024481\ 
70141388677940268378807709880507097029498000690823461047803286185063959185290\ 
8100926147550339'120.12818167789794 + 3.4066044138796385253584001428521170651\ 
34505725733875769799198512101263329779546069163989784209676268522849259729821\ 
7790501767452 ‘112 .24270601794667%*-8%I, -0.8308760531930576150340171725120266\ 
42919278357654588486056926724437100522597617627571888532212675147576494414645\ 
41978317615790624518405'119.71636869692168 + 0.026588672047733525320404139803\ 
10619637739233639906090396496743748362733216458040666729996026402876509976117\ 
1297416299510467122913431579'118.22152910198571*I, 4.155899404675121706380316\ 
32426442007594398716796336724205719356613924431127791019970909732425196814211\ 
3278424748261059057433198117899451'119.90869751427421 + 
1.5260718935629530976384047440172282186732342286440559979880754879920\ 
8632076351421438042667134682057510119580392269411594557221996 ‘112 .47360748134\ 
956%*-7«I}, {-0.8308761043752859426962307740247273631248820999784117520105329\ 
77365510966941484170036477609409840860262113017667803160992427151222475273'11\ 
9.7163686821203 + 0.026588755390263181264332209442895407031755336417035555614\ 
71465340599334604015104556329742667832571694698196016123221091447870067903659\ 
5*118.2215304217311*1I, 0.4624121479850189047508083154402883963360937866710066\ 
46062024197456687177214203537586598626613358038683194889747129194849702324977\ 
682638'119.82055958934035 - 2.47372095047000917746276155998690478587355278302\ 
36888540642275691342119199805087019317047365629498173964705433018916207802850\ 
577°112.54888106168407%*-8%1, -2.33394633646451936651420460929574855818547142\, 
66877720821947673786304377096142832253571177941503232576523200049190946985708\ 
05576745274866'120.14402862296417 - 0.207122815076826009141300906466271652980\ 
31347369553265442313118246084511538683001219311573749412452649437436039849371\ 
5996755489379892431'119.09216569681831*1, 0.483477735766820875330573781252711\ 
51318768250014153760821553141291167154796352038525921956780910879176309461443\ 
6451912418024429869155879'119.88100862359478 - 0.0072644603221607171885029933\ 
53546315055952265556196295071272456791399427072175303871727182288672474395512\ 
635419753217572963110230316848'118.05783550008182«I1, 
-0.7367014149182188098637591396196097755264066091857043615989149587821\ 
70177241033080269425473354077752047439418408109402681746942598391475'119.6640\ 
5149926902 - 8.29416253115416837317893979989126688312088771888587980801937101\ 
00644975637611663955402200169034308759945215488488585101554089101'112.7155325\ 
3678212%*-8«I}, {2.6169613321921182587439461954351855396574728643282387600054\ 
37150017775666201889459391972659134279642576548755953613886995700546824225136'\ 
120.12818167963982 + 2.806813544459995634810333084978237502046158742182456489\ 
0326317150795211760895810859661275870959404074460885338017615421898086785'112\ 
-15859793759721**-8*1, 0.2174602974671405951503848203170149639848838583557234\ 
33987435808862435052206525661632317183980305199939172915383416105679270077102\ 
53195‘119.74227448140867 + 0.207122840644611352077246271189169790504767300337\ 
73752304395137473334897328472251423762238537262105710585790618237965109879331\ 
0078544204'119.72112249735643«%1I, -0.12983818681813881517274930603490438562428\ 
83844322724094750340868849271048522234733726900699461908238662360167419090467\ 
42207793257243361'120.14766044744226 - 2.186340188530183219209304898008029183\ 
76268497172103653363254526236814097041756334892793303192286849396863946220270\ 
1463801427795'112.37397574337642%*-9%I, 0.18634571769657256211230629769777986\, 
46813328919408735626018096137627689845129662038746704096093046545342411948273\ 
46077062863131766254518'119.68290619201424 + 0.215337315378079777757747075209\ 
24089107569613700949489653003243196806425253183102812042670437193476171233705\ 
9671297888998424979033975722'119.74570606945856*1I, 2.514995329285328901867457\ 
69939062230077398808017909488640498087528995492231272720224139850825155711913\ 
6901752726574710204906361858944984'120.12968458480155 - 
2.7301865229446049849285497603460577712044282097440081159218097783161\ 
924108846884150067222729421628477153375483565580487944128621'112.165339720470\ 
03%*-8«I}, {-0.60740825796464113035618619456331070235477002709431285720931836\, 
6430463962215875998369228429173746824550866091654552006358651647405295042'119\ 
-59365012260324 - 0.026588762784467855942205170633687438852571706267688658901\ 
49121760021062477836294786583494051955996256558458712420740739302789911319661'\ 
118.23486755998866%1, 0.43974682066418154925868512271412182104960619987908958\ 
61640566409927004123354570874476931591192868886231424239651790558523864593040\ 
46923'119.84209402920496 + 0.007264466008417459377217137981086155175786901464\ 
68964148970247576592543255529030618047134135813689150031067797680806299846986\ 
1967432242'118.0600950169545%I, -2.315026313824762589607682423936923674482029\ 
87884218383002642590330092490221025382666435008922239743163211586956736362837\ 
818950827285772'120.14325205639484 - 0.21533733612608883725451492954778255190\ 
04883426704951102066771091175621802933072745923547156707259302357276451923408\ 
70101906017677738335'119.11181546081262%1I, 0.47065379573823052752816974622379\ 
20199807240801587266385721466050530173449969545494091532416811557037824906644\ 
58782742427749846811787618'119.83676516101879 + 1.567893328150183497134759125\ 
02935065147022744763663618028874889361173331767943269448260335441138466432514\ 
52407157825871030094582'112.3593801075392**-8I1, 
-0.6826420490394626474349876717356507749572267930814194671719153282493\ 
19437789854367500783799581105194199965611663504901641215183209580634'119.6328\ 
6934382992 + 9.11445406353325195551036286758428225784914509990090850082845139\ 
67741628403670300832468676000959285961535772406717344385973649407'112.7584069\ 
6806335x*-8«I}, {4.1558971372042085467382918990891058090650448558949231062732\ 
69635218052352530156667634050637219794504989866700585299294614953647198042936'\ 
119.90869738639329 + 1.115372666679191726175926554519932009936574359970097838\ 
86182913095749478756446937182280610495942741797605669647377119006934449785'11\ 
2.33745259408332%*-7xI, -0.73670216555557349183171789150699778420478890799029\, 
35031715254307749980149329840849718124792317003532589740320893198377826431021\ 


B.1 


Example File of Results 


30096186 '119.66405190377995 + 1.267264459035567122157484584270576740118034872\ 
68753090505946067378764071970673305486969641655824348618282890972383740387376\ 
405697°112.8996272123719**-7*I, 2.5149951663347219332546197437130456699738553\ 
35883516623737970626080834473021231097120846692467341814057512130872371355908\ 
313462471260725'120.12968458929438 - 3.43452711444963305385010417607390018685\ 
10720994341532640804570955924036716825801375409210120403107558680668863353098\ 
752292032056'112.26501438392532%*-8%1, -0.68264109018449199657096460643850525\ 
84970718452761800643765247602286099129527045217829033632458933875637137121685\ 
43399200203748039238573'119.63286879837788 - 1.072630084372530473040549162372\ 
48518541153732337630532174202440326987831648068274419411943486496131340785488\ 
777358241778917304558' 112 .8291263457636**-7*1, 3.5987358883761018449458193058\ 
04870279169704762581162902803507430769878980745225065313413813085126409627727\ 
185598354656549234410950365634'119.87019782302441 - 4.06278730249582767514010\ 
56368467923960864911497572769309562324922774075001711266422883684611439043297\ 
2900311715664589210791158135 ‘112. 92287193459545«*-7*1I}}}, 

{ { (3 .59873316695619554979966749577377487523149451759498413826232909026135\, 
9846585157525935526241020972678621768926671785891153698777478932733'119.87019\ 
788375304 - 2.883282670228948823051987265104541539122443858587106783828353829\ 
65348780885811659998824717544948651737888964247947245206726334861 ‘112.7739354\ 
5895247%*-7xI, -0.68264065733970920525363418580904437233635287046564067331404\ 
8126009945214705429523752825861363543625886919575712365623669992659716620749" \ 
119.63286895198812 - 7.624092039141480162076147769347050061460315112121440816\ 
1081881267489980152336244621040708629249701059811135435650652336043011164'112\ 
-68086493169295+*-8%I, 2.5149926480666992879564897139305241481230817467256407\ 
63246185936494642555263564899081314893618102977641146504347299345141829294719\ 
053066'120.12968458692984 - 2.42332192977695864640229774801785030632396652946\ 
44264139327445937648234429412983874123426239064448720186963034986973161537495\ 
713°112.11355897954537%*-8%I, -0.73670121012326715000163315894126451813405122\ 
59712457124231142599232370568521389143645589690902597887333701452887666246642\ 
66832704547488'119.66405178552608 + 8.981144925493989021820614739949701711411\ 
09378885037132876922529694685761131627053114957436078170312621642079696864958\ 
6376501051'112.750092106787**-8%I, 4.1558927936193509845494754034700793829869\ 
41082011738666207670240016353768528428384756650043659940543896172978608838172\ 
637143909976659012'119.90869737601399 + 7.91449089769959188199234653785805859\ 
13855885388736101957725855555188712882380614366207770400390563300666260596857\ 
455248480475111'112.18845602410379**-8I}, 

{-0 .6826413329594178897751324880566630068668534398670146784912804424503\, 
11339494795443391852852664980465542073631471072940164491277371725872'119 .6328\ 
6933793262 + 6.47446270903606273920177222459552738854027577188903066305408224\ 
06018484899623547203750085092915728033012169570263241126064416673 ‘112 .6098804\ 
9108836%*-8%1I, 0.470653378906804406244038926893526871510745748079655712174393\ 
448424126183316812061646995636154274186379012187311854095317839267035202507'1\ 
19.83676530514455 + 1.1398428318440898387245599580038067838478343944050538672\ 
712429517594338924531187609772223383581388784941319247079412464953021759'112.\ 
22090909664644x*-8%1I, -2.3150240231497370329291979866136178416914668554722733\ 
22929063166394009258573162420071624855428275021656216458462351877658258209178\ 
040847'120.14325205647128 - 0.21533712825590159596359226891685921912790544118\ 
31327592848933359924802244971087599584941420741352122074572428363816920607408\ 
82706447897'119.11181547138067*1, 0.43974639788450719796298788572120930900149\ 
75529490022285884695539944887819364235980127290039976428233522685143999307159\ 
40041851610776146'119.84209398619753 + 0.007264457444212934367725441065392661\ 
62693368025532215051252417762955592383498332134703775134948357418310207712892\ 
4140598346415749722799'118.06009487948741%1I, -0.60740790913953728559761653550\ 
97968427022376743960254782705385962240705936216610895135327834160645981779789\ 
71991793816806164985112532451'119.5936502926703 - 0.0265887016963671325976596\ 
48217934408260350698335940567068360264147715508772886199905370836183664477112\ 
312166192105144060283205248317908'118 .23486698166481%1}, 

{2.51499277060259069964216881909597078575641359241429663198033919744553\, 
1289557438860493037376800514139021101747980229986747931465588423393'120.12968\ 
458381316 - 1.975643400197296139706218218506787502059868343533992618997951417\ 
078300757915696829635960173633677814708728657458761709411943395 ‘112 .024856400\ 
82115%*-8*I, 0.18634552980183691420979851754221659597920255187104986471918095\ 
3021686997135295317126329171564046883993112874276208653830883470008690951'119\ 
-68290617827543 + 0.215337112856136393292744745545721607513531365510425650442\ 
90442160838992219381670368075007773283801412524170752189450081508832195349364\ 
4°119.74570608517607«I, -0.12983804466586532603947182885475945442844296362179\ 
12989904956061802863888566405838844717965821272714649397960616398593035645550\ 
57270409'120.14766050687132 - 9.812371667579138075432496475724705683139792126\ 
37473597501611315861919191506103527177414430875881892703169224847310829071662\ 
725°112.02603253020082**-10#I, 0.21746007586342770591524471480251913239240587\ 
79306470789463192712637544286099064893927653397712346648746411045867882551787\ 
82831305911697'119.74227448839693 + 0.207122637705778828306092459000841560167\ 
75104688949930317268302832547882289984467447460657622809491961084607959516235\ 
5057782047868415461'119.72112252139263%1, 2.616958687575873496369178994304859\ 
71818857228292540921821546359354055119237258418855695180373450036181703310263\ 
3682186212483373952280384'120.12818167701695 + 1.9537418426076987078168499662\ 
79622783997863742788258624182126662757575091241671566907862827010870690422120\ 
3228291727127839471437'112.00125198801652**-8+I}, 

{-0.7367006725881272495035179940272286204561888645273635446940149696089\ 
2124987740844569729695687759607053016944843621561516225219418448666'119.66405\ 
149753737 - 5.879668795619053941159785879352990770011609904267763978228788933\ 
1013408069944578178122447370915599246558662046772597895334583841'112.56611329\ 
394514**-8%1, 0.4834772415987782806536757902515194103636252272114496802811720\ 
68548873242178255743002101644474498184637487228593358273539635518331701837'11\ 
9.88100855730318 - 0.00726445286544049286906867403548744769446934019719959353\ 
09256113756851021549254136079171447731425460931230209367546012271990655295038\ 
65'118.05783543189905*1I, -2.3339439763530621833346223579454822716304755443221\ 
43210463149656345056771150984570239787578982665684038839944914866400502025425\ 
074916823'120.1440286221726 - 0.207122620237098915136608935602700825102865460\ 


207 


208 


09035475012683683905739851677310652647418100885407487381190233415189339846062\ 
7737822336072'119.09216572665063*1I, 0.462411703561885916526213717481643785207\ 
34589506509028696499652402562633690234623668880973344193530753159567345243793\ 
4500403871027174795'119.82055969057902 - 1.7283260207088112744910563748039096\ 
07731621848126603796086437549646378955607283250629093257002932716916946159144\ 
3774864654527291'112.39315654159762**-8*1I, -0.8308750184316898388300035220023\ 
02259939523208933305434659214915687577057525593475385209181489112991366590781\ 
117712323181957217500331576'119.716368562424 + 0.0265886965757169162271041920\ 
06304413815801425783339533745280833469758013250524266238847482617540123191328\ 
199642011622941186043809850756'118.221529908988xI}, 
{4.1558944027481747658429878077818324 73398246926 76358356117215486194102\ 
49325964980745320064645082875053444944500178480648262520219144706'119.9086974\ 
667658 + 1.082894519139861111784976334407700743269663960122289049641570469461\ 
10769993666785425934193896784053370346667456136929546952958237'112.3246191183\ 
6474%*-7#1I, -0.83087498694916680059890675480608912459043550110290096941959730\, 
6431822163781153578198840016168552820817275078311456068271323334811942316'119\ 
.71636857352799 + 0.026588637246521230586959256740795790577603081344736051218\ 
52865966526359401544676380075591133759035861398914578894007602343293820769860\ 
2°118.22152896747544«1, 2.616958933496691095267476251560345118288956490452720\ 
96413760800277507957908796859303455629362723377303358947290953764976612749872\ 
7581445'120.12818167570661 + 2.4315299653787053804574712809897627490953978271\ 
43317566414273437412759204259518322566171197486708071745186654562606812545180\ 
2661'112.09626439419878%*-8%I, -0.6074081026359135610199041550006887580480379\, 
07003869571524046066706061264314955165196239831829604495516309517060376639224\ 
869042050587111'119.59365041999507 - 0.02658865436328909465131790155413621990\ 
41493127420624727139800692718639738470994892766791374582134965890389430821542\ 
84804695725574024726'118.23486619751075*1, 4.15589153303871950453336453416151\ 
11076514723377998541913333315248025588315453107192531899481292481419351367575\ 
8989971951443523428597499'119.9086973060922 + 1.08289427375490297829317545253\ 
44318213203131516128387351710557103029062043915640291284824766937826631500629\ 
7893911445421529245585'112.32461915916672«*-7«I}}, 

{ {-0.6826414033120674039278274362870794750657411697894326953841999400117\ 
05495209592558572051573373534126202944607085457443169557624894160011'119.6328\ 
6936944047 + 7.05537520791636451727031866421246850430010333839193053256309887\ 
5235712986091561887760837275649051144916224015629109096171488662'112.64719685\ 
87055**-8*I, 0.47065344045201585669913110580732879718938893872460834808551585\, 
4486128282606437425020391607986510062044172322018042778090053520847620565'119\ 
-83676555644492 + 8.901656633038972896452330462731735576734670501601603840202\ 
121731303701116351846208941976157369194064813498852763142006381561467'112.113\ 
53515680396**-9%I, 0.18634548116596111092158159875128706583650339649998771114\ 
41459888070184682754764115018608053287807891095988514833218500443804580192153\ 
22°119.68290610225135 + 0.215337127715830478693844419546926525278365328051545\ 
50300756250557995400356067533677810152238595594533396294205272796878664866407\ 
3577889'119.74570615247134%1, 0.483477287354056611200469682514631772524528266\ 
82186207399225525827330188326524569394776416821427927956933665267635371769490\ 
701167009009‘119.88100841181648 - 0.00726447554119502594631706384493307046592\ 
43694949100291488259517196272333752144777627658387682979212769661465397147360\ 
35959542672180715'118.05783660094569*1I, -0.8308746471014725301573044934027987\ 
66529484337828001050354686373744986212662426660939461443831227319180551699347\ 
237778929837949580800307'119.71636841544728 + 0.02658859572257083599528760718\ 
08716906514354571958304234778898869565630921795019205948463721700610812486464\ 
42864986726049183032804732645 ‘118 .22152830878554x1}, 

{0.47065353365065248020931716795107221420500181168354779148363758317995\ 
2885260214778753291624996787313200544936852702529092293120710584871'119.83676\ 
554087384 - 2.904661425398899106422359509815314271046512870790382207345180300\ 
8856136964974677451215616321728024240230993815185881158297633875‘'112.62715973\ 
439477**-8%1, 0.0520280533114745157122014124912679915962476267464437663335029\ 
18909497529713390570260913214294527813152850838168225335358595878130994509'11\ 
9.34360520350057 - 7.81595475452663298171125190774460323743870448999769534911\ 
6797365226965190087765486303814956166851906204048880574131729353956579'112.52\ 
034966356806%*-9%1, 0.1663543212095782273723676595009471312958247552423367994\ 
73264630351814189232853744887123779274859018540416924308197368008661325304608\ 
921°119.9314374536839 + 4.368522640505234511105745591944782342990945466551361\ 
597237539933300539597254538444778974356112707418830205380368757237262113801'1\ 
12.35073795797395**-9%1, 0.10561435095567204816802899674983389273234500477943\, 
93592895404022724131714278934583660279259929951381172694075828390021515309210\ 
81806841'119.66911689412986 + 2.123564528552628879427022934273904731290619589\ 
85785315674289942695666391666236956548559361715545719276561358626504106514754\ 
9509'111.97245942206102**-9*I, 0.46241164451331349818962251224371428045436961\ 
91159946098109736143065067746306839395508621460507423362572208107009179548229\ 
78218832880369'119.82055971756414 + 2.358747913297228688511580774536883542613\ 
22068732117967206030565502430882544837210626416880300022545279414809673155006\ 
61982505728'112.52821248451872%*-8xI}, 

{-2.3150241302104145813284157967271203185720644756883272244662940003446\ 
2084224699567283697957714504842159857869708069374783847185326460232'120.14325\ 
205819516 - 0.215337114900152280700307662958024980741572008992550269666133698\ 
483940689289606800036350336550020424489039193394831708253006786417069623'119.\ 
11181542608408*1, 0.166354278336121315743738084010266471729793658438596036184\ 
00545982776156005256138151127889004592642866443730160728558365067650138443619\ 
5°119.93143743623116 + 4.1401248872767830384948565746928841011709631918140703\ 
7630303669167748345649258556253367124438277483585487160967789584020386754'111\ 
-32741690345567%*-10*1, -0.44471159394534586813156550848369762660894301245960\ 
17617140102051465220902455052058539144381003555286777513790338693634347603255\ 
8352474'120.1505095025504 - 2.22149768032767803195098004653260035174306048568\ 
46252682067976921872763180079983283403530314215446743848763464598686577162408\ 
1.110 .84907691467987%*-10%1, 0.1684800208406599912308185622794600114575853607\ 
01174346086955790089361249806316000003078234796966901389456681362994881766536\ 
102077201148'119.95871003064028 - 1.12942658484479063832340316635075045935298\ 
44920740995427357339224364178160782902888250911482001682470354040097181074534\ 


B_ Result Notes 


B.1 


Example File of Results 


0831406'110.78501962917666%*-10%1, -2.333943929466167208047832749130888929830\ 
28852148231012295459975663012796270334481468655701873861867902868099467995946\ 
6688129951364973471'120.14402862134754 - 0.2071226343747079462041114697136492\ 
31150488989286153245152627512948597629212656963938008205081610453600506465707\ 
6182432675364467769446 ‘119 .0921657641939%I}, 
{0.43974637545026411533834317460797313582834282852493022054903137788995\, 
005866403161282506529105462557755661081567441809489167294396557084'119.842093\ 
90012279 + 0.0072644681608981890903489570454169062468165715918140298949323123\ 
41166267893132049987328241904843115503666921745594566325752717371880428'118.0\ 
6009545624897%1, 0.1056143837036849380216389138814211540805517718110623060439\ 
55292856291677775619735471245186579474223346888634563953788942327246646694762'\ 
119.66911702777567 + 2.370268991599153336981483913976029251123552717598398703\ 
021711263521875695095848490875568229170438936165374996948007894738012375'112.\ 
0201915936658%*-9*I, 0.168479974144282915592408477487151134960054289499187486\, 
95625011076434104677775639580600307567212594966365690231105987232133744306825\ 
2049'119.95871001933277 - 3.6314763216773966848220373027856223028013199890968\ 
51153850222179116513679061322221443171696692356122404431365051207313404154622'\ 
112.29224494891564%*-9%I, 0.1056143211573643165679355239394425676947831661906\, 
72706309507629710081251425229967088597143185565654719614990621640938802987126\ 
052663236'119.6691167951111 + 2.370268352378563177630395718765864952683544537\ 
72601817817339963415900633457682067685720681599847662555199188385205005697985\ 
7144°112.02019150107486%*-9%I, 0.48347728133443570185074615513841661547719273\ 
08223219206281958950704368224949479268660550340074975816436887961509983916264\ 
84453675003369'119.88100849505713 - 0.007264462327737607834957256645433291486\ 
69942960779706672265418201041388245872550511635023302133483136474342620158270\ 
0923213615411951061'118.0578358996485«I}, 
{-0.6074084324936294868462388373922696481401339833595866831362505781746\, 
69523918855512492933635098810261004265250058776550164132410743000185'119.5936\ 
5068507867 - 0.02658860038855305825161693776468557759729839656846695278561746\ 
3577947151429021333741023399719094145683095334188251570328206561421252472'118\ 
-23486534513252%1, 0.46241174513372476039994062637170067010262891606716646125\ 
56753952369467043634225604753561952502437317074447805125768753401872246208967\ 
08°119.82055990885328 - 1.180104054740582955211656452409211379177450856020368\ 
0167510718440925418866836224748163390809657042687130205891156658619589976412"\ 
112.22745135490442**-8%1, 0.2174601423346211389172064361347562086264080991190\ 
26603174022142688177170702951660947154448053927668495975425416205091436377036\ 
949269111'119.74227465398712 + 0.20712261847457692370766309178513439031141722\ 
23632922162128509437403820249721205832361185274709996209254923554266946266241\ 
94596642145084'119.72112251390776«1, 0.43974628854900594308799327765427383894\ 
27091880554888236971192676742845526782616585066837975086935711002216871192432\ 
85897002295241502637'119.84209368076272 + 0.007264483105414037290229698814389\ 
70224313643035581467937930896033305474962706807112641582838007449187349805856\ 
776837908086017930636438'118.06009621614555«1 
-0.7367003887111292818052210756460994511666507478365374070626584899551\ 
66738723899598054312137090375940431059501091430872648765091800924369'119.6640\ 
51308275 - 6.4151142714269361381115134942511170204139929263142383368669191584\ 
659523821090637722926151708554040353913370116747424367563636272'112.603964806\ 
0693%*-8xI}}, {{2.51499246346201484839968263694906837709709219582035998093164\ 
2624432640034022619786895385780202025977318830452472500763775972326445211799"\ 
120.12968458393695 - 2.164218966164524751429883756353171478683547582000610297\ 
6774976414459686248653128751655528981900868178998515399948856226100954189'112\ 
-06444909463387%*-8%1, -2.315024002545426827407008966129703497183315040609059\ 
13321206668996095463757775066478740798940004096257315044939161486149438931396\ 
6833454'120.1432520558098 - 0.21533714389302343455010375613887727520876189018\ 
47414994052496092040902542686751099231811039717174209355439113560491976659482\ 
28604745802'119.11181550612164%1I, -0.1298380392182505089790131124991663813214\ 
54385108878757657153490530184304156847753507533683307563465585792408672680066\ 
27540220748898278'120.14766060672143 + 1.934842181481414018142885165067732795\ 
28901107393308671004618590818679438502508014727973780969550287923746946143928\ 
805331120188'112.3209042053316**-9*I, -2.333944028826902992118174496555492670\, 
00149572679186651867613209915386669652629537841851095645412978738141895944952\ 
8373898158403696223073'120.1440286230966 - 0.20712260698141809115598966147510\ 
21802107726718675598261427886775121773972736862665193758340045154506976684363\ 
85134934000882410650925428'119.09216569001593«I, 2.61695900666562286675826090\ 
57024530404217963538702062878667587722714063080569248811742235211538240331336\ 
25167775353706024451923903460344'120.12818167804149 + 1.765166815119600328365\ 
53276023957697919513805168778824362276402224433074445575214734311731336330302\ 
16461757227946680639483211375‘111.95717051252949**-8+I}, 
{0.18634543003042132591012916793937296706061216847280828474571480526416\ 
4752402065468700172518420958856172890358511756209823072432499285378'119.68290\ 
596434494 + 0.215337140412885372222299576111797480839152969805167766210945663\ 
671042110544444829669354932363342940943128908096345711892244963006277986'119.\ 
74570615934837*1, 0.166354317103694116306568451858653295033073734855950804080\ 
16890587489875389461253650100446640528430344068967663516382897716837085026687\ 
4°119.93143738438394 + 4.7407367592098846435033676906480729430821881481375006\ 
0320309174441872778375078892870482596873051689456751262473751916720821929'111\ 
-38624914928967%*-10%1, -0.44471158518089330727803442991699142401959657901941\ 
95849223108932269865488428669612825190824593539894766270112548462936663769214\ 
42060448 '120.1505095025743 - 5.3156221964824563350492703345736839318517884350\ 
68706265698868415879419951327287043845870499465059363888458056659359557739886\ 
8°111.22798516541408**-10*1, 0.1684799698502979119024467460196883836631968780\ 
71597619412457595528650822165634080232239644130086680510467477062975896938672\ 
659659511414'119.95871005567344 - 5.28818520401739331226116421550526360513401\ 
60199425798369405163327523714872546011070805393397514221423048250204874887540\ 
670701'110.45546843625299%*-11%*I, 0.21746020434810390844845703896673423197779\, 
48792671046599747115711448104104393099494939833603906329169922750737183308869\ 
18541917921480396'119.74227475782811 + 0.207122608876367299644106577036372717\ 
28515309551761722710781669212769906798859473724902876576773241557965035580722\ 
0177235650873056479703'119.72112247377473«1}, 


209 


210 B_ Result Notes 


{-0.1298380504054700176564264868526172278886895479286412488853844846674\ 
47096450112766350042559188659747453270006401034180300652618385551633'120.1476\ 
6058893777 + 1.20727927323755597039415289508900302637551455110891441152872931\ 
83276952014957032699063517027511160550375861874786496714471167\111.1160663479\ 
1676**-10#I, -0.4447115898155768614613736198084119628311406774226274720913356\ 
23652035711875034294929851248180822203323578518576694680575530683976007813 '12\ 
0.15050950257393 - 1.71705665057638413589986946213898310464887248253512236283\ 
50484758806882418293760553648638879069264722267346181196030120500608'110.7372\ 
1567865248%*-10*I, -0.3052182619061430215482109477056309657537937319304821472\ 
72438615059079813992336668859352323302938989583906383788942678635152785361067\ 
24°120.15051499783198 + 4.450360217818520156093777167065522646893889813389055\ 
26084486647517073887681876463104059261436518565748918518836154151840274252 ‘11\ 
1.31429964769198%*-10*1I, -0.4447115898155768481592465924108745498015471711409\ 
54525412239695779323157979008130639224339342725901878828657708256638065736892\ 
24315803 '120.15050950257393 - 1.717056652862241493502545209377247992839060296\ 
02920777039629654761772530009086881204857810707562172235035267952685588319844\ 
931'110.73721567923064**-10#I, -0.1298380504054700734722036489136074062823397\ 
46923343538217002068414968231355498400230556854247876650405285581262044590839\ 
029415947287621'120.14766058893775 + 1.20727925347869078567872429012999312196\ 
25751161301231255505086448154240601304154411582754170195012237543920608233987\ 
0349127482'111.1160663408089%*-10*I}, {0.217460204348103985053744001800339979\ 
82538032930764952675269615084029830368987957774016279457748125977702148914413\ 
2345216298160112460475'119.7422747578281 + 0.20712260887636725111937538513558\ 
33694329826999554508053481744996831535115790948255352312005071336697203011533\ 
89608444979832320503014867'119.7211224737747141, 0.16847996985029785699236640\ 
11606789473827916802765762763236991775501904428046165721738209952401545757914\ 
51248516890676951162983751219692'119.95871005567344 - 5.288184453954893110716\ 
45580776988550764344048576663841802716139349047022403476370360910696877635267\ 
21081841675617755659823492'110.45546837465378**-1lsI 

-0.4447115851808933166891956462602324390795926179512820078303636466567\ 
62240074126733827922795422366712342342332883625305859133104171965713'120.1505\ 
0950257431 - 5.31562252023712358161504355307576845514414543450967616084116267\ 
11894926753696244224930912315484955947014761994648555104624259'111.2279851918\ 
6536%*-10*I, 0.16635431710369413482264748692203443501377707986728117939802760\ 
4268191935345274478425008439310351495927836820829985762376276423301418899'119\ 
-93143738438395 + 4.740736639531861686135169284475626450081562158700381785120\ 
17988284648271416327845368688333407082770562553445060087136510334253'111.3862\ 
4913832611**-10*I, 0.18634543003042137737945443268772615053625423825231377488\ 
54584707149635303498824062057754749914504070456910653879579022899155403350004\ 
25'119.68290596434494 + 0.215337140412885355604118780903597420679734488858177\ 
55242510961489857875000450425929704485966226293993555066254472788792385260223\ 
9130655'119.74570615934837«1}, {2.6169590066656231254437460251498351924561358\ 
59139120576349363852301954300389724191986462346595506701555772786805274829329\ 
316832158943579'120.12818167804149 + 1.76516682017873823453518755693933395344\ 
25456568677524163291121857463626248069131123862668206830140812540444444397999\ 
537458142977'111.95717051377422**-8%1, -2.33394402882690300078344913675069571\ 
15012205087397140679450890339575014698241273917012670749111139389612503402028\ 
11626188258521466468391'120.1440286230966 - 0.2071226069814180704483648761732\ 
14483380508676720851498227523805247926060092199856074106302458421499460273015\ 
521708657706424249105264632'119.09216569001593xI, 

-0.1298380392182504998698289052383490400952914274239095178972942370330\ 
91693427413937704046108738043035474956905228638127778007960739441333'120.1476\ 
606067214 + 1.934842146797602040910323997234665159448063141163264258033932148\ 
011895502725593995542980973715022795281763114090658844250123568'112.320904197\ 
54648x*-9xI, -2.3150240025454269314066173254901532605674162553524845041025047\ 
05420629468814495687244750583719739630319743576080655662791095137534739881'12\ 
0.1432520558098 - 0.215337143893023423077133801719985198154149615254467800505\ 
64577341306274145096518203456566762320092941677940604204440741329826107012725\ 
2°119.11181550612164*1, 2.514992463462014509189782465368413975321450767544325\ 
79549402078777202617621600559737563672937970472418627176728548124797252278900\ 
8814107'120.12968458393696 - 2.1642189655641438237124904733093142563840181755\ 
03900158497641860865473868594420882003580366212753365058111097420391173032241\ 
6281'112.0644490945134%*-8«I}}, 

{{-0.7367003887111293739914188377654116646154378223090425758194008798615\ 
14389595691176021050255420603413158875206418451245372163567588782519'119.6640\ 
5130827502 - 6.41511424767165567007601900452017040709423940310310479880522300\ 
40774702135013223726864440139827218348867791963061440637883517051'112.6039648\ 
0446111**-8%I, 0.439746288549005852571375338846525027078405278135852751252205\ 
140388666740852706776554534100776937497295854974239178302595739826823465822'1\ 
19.8420936807627 + 0.00726448310541417660719604159670488033497780871643268171\ 
91941862515197400942581545395241234597225794554350369811399013474784257211804\ 
19°118.06009621614555*I, 0.21746014233462139887613440492902370689347953808047\ 
62539262876591188933720605868873264244988374421767705633740934908103745898782\ 
40468412'119.74227465398714 + 0.207122618474576916971111207695601322951666589\ 
95610167363176388280027686886233737118325377144866132025082865101012753769666\ 
9132265029846 '119.72112251390777«I, 0.462411745133724980535630651071788915183\ 
06529834650221921691659097409660438202377995903107381060484369511799252868639\ 
113369681577405086'119.82055990885331 - 1.18010404200849025172713179671774786\ 
35131425084937551515489492153383664215509767239776996838752483389363565855587\ 
964032250601938'112.22745135021887**-8xI, -0.60740843249362943142266532444114\ 
84579515718779287336864388947321746812777891562679948072633994370375726640013\ 
03821525636295520945310715'119.59365068507867 - 0.026588600388552746017680809\ 
77907666147703711701617204007341561189662940472368515319198165144895903927330\ 
4123434558462657159734591297044 ‘118 .23486534513252xI}, 

{0 .48347728133443559797553555755123506116483422131065023810928238541351\, 
292903464810746981252568691900090647387226008074251873920480674097'119.881008\ 
49505713 - 0.0072644623277375472957696875497422045347284893486253477984838772\ 
01268209658208854975281097142516252259056043312834921166158278064796377'118.0\ 
578358996485*1, 0.10561432115736439349627392013472678410259726627664494940149\ 


B.1 


Example File of Results 


4461826930217780092242174956519530051932147534911385472911755024610540881918"\ 
119.6691167951111 + 2.3702684242257664206432133991685453224660519380261328127\ 
72865073576729269190944571971745140590781653956403665483710561216601887'112.0\ 
2019151423913%*-94I, 0.168479974144282921160944248163445753962088842067580725\, 
45711253139152824642809969792511297176543995713175563916150401540551350767869\ 
6601'119.95871001933277 - 3.6314763092294128009476654086965137753960883961412\ 
01352966905969347529287807394675012147539536051552645978935942510944396018258'\ 
112.29224494742694%*-9%I, 0.1056143837036849886006329460618676994066865256459\, 
36908508385505494922376519769801698092349977197941746890554601864647918186175\ 
446956392'119.66911702777567 + 2.37026904022692026167688329107170899301118907\ 
09407162543114754849337721772606451943971426177535448842997054348518276980755\ 
93053°112.02019160257566%~-9%I, 0.4397463754502639491288199099437691943744470\, 
91415591931055707875053049936363734961598055976526167269939488384133989193546\ 
701586880490972'119.84209390012279 + 0.00726446816089827095116870031177862343\ 
88859554075891996163887926355987114122968892234239810524898987968857859943904\ 
0997260207887744769'118 . 06009545624899«I}, 
{-2.3339439294661671138270037025044449006875115863607887633056926487099\ 
32574929388611538747317045495471755140498673541759345500010388187661'120.1440\ 
2862134754 - 0.20712263437470799300890234765363213842755538650285634064107785\ 
6485874234238209690302584820817489565113667926120792632945085964463302863'119\ 
.0921657641939%I, 0.168480020840660006421625742466618307930039485624237323969\ 
34164616429413574334814299106761617531186145287523424898615031124064145751232\ 
4°119.9587100306403 - 1.12942607464142280502703130554615890080599992244144332\ 
51734172860321114269425813968110635073248261168343468219880930560308502'110.7\ 
8501943298991%*-10*I, -0.4447115939453458326445125582454895859343475672009781\, 
40104168093544562278074774805924601606578113762547529911166737921701740399136\ 
635616'120.1505095025504 - 2.221497399064069294318407680818560358825721828461\ 
58533742543949410331476520529017842696017480813431930631667529446444550131453'\ 
110.84907685969388%~-10«1, 0.166354278336121370477250000124783223258243090951\ 
57838069985604857125428878201556175155540669776868745975845986753389106976006\ 
7796630811'119.93143743623116 + 4.1401253159292790660175885938002710596516710\ 
76983855829384048040526871338212929008595946052920983311141860492802769039063\ 
54287°111.32741694842083%*-10«1I, -2.31502413021041439835754941643731652066903\ 
11560873164059512473309042009738083333135454025709729555520555240827541126581\ 
91111739583673486'120.14325205819516 - 0.215337114900152269429916185344616630\ 
58058149640949001023520069304077983172533104690953134808437842744780037071509\ 
5655066316856171519676'119.11181542608408«1}, 
{0.46241164451331372102653180343070312020634705168150259975674174548502\ 
3019634179429149217350764315833196477914877066554730156842490671174'119.82055\ 
971756412 + 2.358747918153339055999793033786658574286188299848999914892613699\ 
4391563709959092118671300132255322085680858040501941366198286658'112.52821248\ 
541281«*-8%1I, 0.1056143509556721368126670244640393003721844931549785138468318\ 
50829150700344216154101851118340394253423395559162955276261720814299866669'11\ 
9.66911689412986 + 2.12356454135190438950784289546421561426237820397527158931\ 
6284663651334643832664303946270033433370674697530089100995716873359509'111.97\ 
245942467859x*-9%1, 0.1663543212095782337475551300194621414881548969621771169\, 
63899226520656324833158481203984697257405450015633809960698991834758585655434\ 
912°119.9314374536839 + 4.368522652012921632203473731767915673505376466850394\ 
934362646169453472767038185896821294102160398153118582304148539234606882384'1\ 
12.35073795911796**-9*I, 0.05202805331147456681058627510478116950921996535930\, 
01275374805767935689661080620350309891454165238887868644231934426307431175261\ 
36466813 '119.34360520350057 - 7.815954756671216208402052794605568785223733969\ 
32880584785476593493644972337831444814813018023159218705797294176363018820964\ 
5976'112.52034966368723%*-9%I, 0.47065353365065267038010680117590889151370834\, 
57902151720822818963936380731427581469200496408197566101169243391098567019965\ 
07092626261419'119.83676554087383 - 2.904661418968231029278880089590336526990\ 
07297180860928702521733438059308119771759213143279492469835741710742365908794\ 
70097695573'112.62715973343327%*-8«I}, 
{-0.8308746471014728203551140292553068531963371121165920687547995391922\ 
47005554905922091497054251080154904347531755516887549710266835163535'119.7163\ 
6841544723 + 0.02658859572257091451795640805477154170542503043558424627372917\ 
1504008670614110814245968723747246018017611476103797096764331414403082893'118\ 
+22152830878552«1, 0.48347728735405651062291441127543086801224926516666625019\ 
15746969079938778063370001298914319371332380368139773364583378012900443162579\ 
76°119.88100841181648 - 0.007264475541194960573660012989412658311649604139432\ 
41668486649576361486925371167518608321894848972250600781931482411336055418813\ 
2382272'118.05783660094569«I, 0.186345481165961307472730527831632321749164096\ 
80401519071288043046438261569360403571815292915548385356607140926475641624906\ 
152834978067'119.68290610225135 + 0.21533712771583050646547452008450306417732\ 
09433562837897293162813373930052589420718219369338978292420547831703873559459\ 
07434050633577932'119.74570615247134*1I, 0.47065344045201606897706839682241067\ 
52774109571309608915905314475109962008846705666739440401862043458347050105941\ 
89628543585056135728932'119.83676555644487 + 8.901656731390250228922075127371\ 
15838313101128508406228561228248267633978249640586998880493315718497917847166\ 
9519226695017737228'112.11353516160229%*-9«I 
-0.6826414033120675129957189159061055671024683098355162383689604891324\ 
65859574300154606782958629430525326530571475531736902283363670413413'119.6328\ 
6936944047 + 7.05537522112973900897090888357804061826135725611238341373777968\ 
43667267030507155824325419017044919009561415354849241060845621607'112.6471968\ 
5951884«*-8+I}}, {{4.15589153303871918368498478652978727968802316856029423915\ 
12051196819365220107617880660232340331713011549994999378486844825288802615610\ 
49°119.9086973060922 + 1.0828942758172830376760000811055194069886231366643546\ 
962658502275602486472920401885191677444968309734943096922183833360786519991'1\ 
12 .32461915999384%*-7*I, -0.6074081026359130135383642270798278741766229265455\, 
18378369803224947635906969253773908715339554607945924752566266780499486895837\ 
195480036'119.59365041999507 - 0.02658865436328925925125122863288770187968465\ 
12513642930400795046704114856394820505439806930455592964181254308481594961700\ 
30758293394687'118.23486619751075*1I, 2.61695893349669092666691193081813490467\ 
71788760722539407437292950187110972811244454752284790729712469218940297339610\ 


211 


212 B_ Result Notes 


44623896419033196098'120.12818167570663 + 2.431529969058510163985851729136423\ 
29492003278013922983460730958164557451162819183369105088879077549128444627328\ 
57228118165625064'112.09626439485608**-8*I, -0.830874986949166829779255799413\, 
68474836433769980201097682337414050403335467024121022891209487373196923876201\ 
3638086901912529428317656222'119.71636857352799 + 0.0265886372465210662808836\ 
58359803459405679684409674064238464761194481028936982482012412992777976910449\ 
011218701748532631343283374880807'118.2215289674754«I1, 
4.15589440274817525436526743320140154449595707544911297438935947786655\ 
6195129040489583574539919316563727918363697795354761122376797076844'119.90869\ 
74667658 + 1.0828945197895469530851942103687538654870955158481097882333337385\ 
4297412978954414507324402277328861238586391358469191143192296429'112.32461911\ 
86253%°-7xI}, {-0.83087501843169020177617571904453572024394647410137577114161\ 
4766943165445474927527387227779524781756797190865267855103107949322483502533'\ 
119.71636856242401 + 0.026588696575716841053415426079250205044619833249761282\ 
51901077171592240166594128447723737995424593212184663396887462728356108037370\ 
2017'118.22152990898802*1I, 0.462411703561886137867232371721686372188606367862\ 
89724617753407327661408780955360257205268456726027146145673180578762566724130\ 
5936637957°'119.82055969057902 - 1.7283260216484495893596702617487144372041523\ 
38902881478676272840404195888368538012150166009405615363809760041866857017941\ 
6935206'112.39315654183375**-8%1, -2.3339439763530623783062564941286112196199\, 
74496419063292158354405556025532994798372473164619987166168443283629717609800\ 
690041529290729735'120.14402862217257 - 0.20712262023709896763086415701654883\ 
36926575750539402739996245424693761372167960095761861161345264700011900819002\ 
62409376688367409723897'119.09216572665062*1, 0.48347724159877836905712888102\ 
08770796412953434276821473117370126957535200892615705676549589433695318064268\ 
77780183639759134858709289916'119.88100855730315 - 0.007264452865440592872124\ 
13015411290212273424289728408686184274771271424113411521815804647093570955296\ 
7686363326241075469101692889144939'118.05783543189902«I1, 
-0.7367006725881273503402839151869283869953423954394350857842845992043\ 
26655134531566276047383998297028925452004644948897810063817409971267'119.6640\ 
5149753737 - 5.87966880836330545324683478371457201208696131693046605536501000\ 
27920467976781680145372408350880726879354593059371831067650659791'112.5661132\ 
9488646x*-8«I}, {2.6169586875758739508896155138279477703174241961826117458571\ 
90015438453162891923971167360207361676250845975215848676659883679323775258509'\ 
120.12818167701693 + 1.953741837659462509500273039972196937828685306585387828\ 
3719022126889997913172097567461550313480010946249169026865760143396733441'112\ 
-00125198691657**-8*1, 0.2174600758634277444080786332450118782124888502640629\ 
69755567879392437829620222559222951997369839302643147577055424631449290363819\ 
281994'119.74227448839693 + 0.20712263770577880605437360926367896909332917065\ 
80051742837734640315442045834803300852437469523666615915090934828836686349436\ 
67066375829 ‘119.72112252139263%1, -0.1298380446658653368429130879043204503724\ 
90583529211382543731636513560573476944773014826355563892092764982055272632834\ 
098231953620063647'120.14766050687132 - 9.81237203826916750851250921596267828\ 
21991290791433964549975285243025012824869102366735762008509221966978747993232\ 
5091196421033 '112.02603254660754%*-10«%1, 0.1863455298018368943547649522430094\ 
11120789266730878053061115723269774633517254278569534492790445027078675909532\ 
845416895331701236639553'119.68290617827542 + 0.21533711285613627564261436483\ 
13586913554803336533933899903955092446261997053964590690647036310519432939359\ 
72247097845678398885992024303'119.74570608517605*1, 2.51499277060259121304764\ 
21675024061668582923535095322202697905786010693360699775258202057978399794352\ 
88771300082088094086561033494374777'120.12968458381316 - 
1.9756434115460185658268313542372696478594137621955922007157859233956\ 
262695410271624042046443332511739386096410235014925654343292'112.0248564033159\ 
«*-8xI}, {-0.6074079091395371048831960475807781719151162826892208552120825254\ 
91710531272690059795515904532662065658151549091898276777388790165101432'119.5\ 
9365029267032 - 0.02658870169636701480319479733484890756502635099432217025623\ 
4808555335198891006000185148769416450669415143879458183392561344819021353384"'\ 
118 .23486698166484%1, 0.43974639788450714287012588210594610668635717477125723\ 
82826468782443238751521327257353490537836551144698388309068112293022494936745\ 
69731'119.84209398619753 + 0.007264457444212963731975441381272391395537520635\ 
85034575071860148192607396417972170128513143533373379509502380167636261620838\ 
8664540487'118.06009487948741*1I, -2.31502402314973704640748306591193051342381\ 
88220770325209568005827957783654749715886481085705614082575170656143750555971\ 
19593093748507144'120.14325205647128 - 0.215337128255901616343709862432424279\ 
30302514490372152340740086581226450991560448511547050957048190742003878308065\ 
3323870705519416400808'119.11181547138067«1, 0.470653378906804229932341885082\ 
35595193765015338948741090691322067403339725390610076763479625434278602948649\ 
5757316491407928462485423271'119.83676530514458 + 1.1398428331173706066545209\ 
61726826589203450262075425946465832072729122163193386149817404382390378133884\ 
4955673619480007348421691'112.2209090971316**-8+1, 
-0.6826413329594175894077057914822596970101238634838561331488242473232\ 
05133330925680406946023878782716733982984646807424540945579718614965'119.6328\ 
693379326 + 6.474462711793319812250717869678859401176440584593621014879048978\ 
4094289900670052269865946344670198953779124115753301955497094491'112.60988049\ 
12733%*-8%I}, {4.155892793619351070416956085216139985328007685431076280056237\ 
621838821632774894606611107713018529699094028444760356015999244737639090728'1\ 
19.908697376014 + 7.914490920898847683028410075036153244221114287727330895021\ 
8022485310139904266952092665251856966049211077798536181334731000113078'112.18\ 
845602537682**-8%1, -0.736701210123267506462639762809867792743104713463667200\ 
78908658455082485448180775388168551835938475900137570749964821144318063914421\ 
4584'119.66405178552607 + 8.9811449058943125506567979036046757108282865845795\ 
74152765640752174071048271684081149550200127119075350876211406027419320118475\ 
9°112.75009210583922«*-8%I, 2.51499264806670003231383395509059140852823031008\ 
63509802405807983987895767950011248702710239089399747016477782604661991248642\ 
57684769727'120.12968458692983 - 2.423321942742267984577842996278113278531956\ 
23395770771900488529379678342419606846784124306218750759961550824933746732594\ 
0088446'112.11355898186895**-8%1, -0.6826406573397099755231646854727565852025\, 
93894785163399448393046466619032772257719558499344990522534057177294702648211\ 
299024915858017751'119.63286895198813 - 7.62409205183514299627226749358518172\ 


B.1 


Example File of Results 


07542645591396654289350417983341638961528690856806143717711191879316742101693\ 
178751815035381'112.68086493241604%*-8%I, 3.598733166956196148785791532804176\ 
84698710887777308343399261971771372148453560926254476754708174293371554281611\ 
8403338674669525923375718'119.87019788375302 - 2.8832826702358224181609009309\ 
03609215612114249505884487338712142520356341162378768888442908034879666078398\ 
8151815857972628020862 '112.77393545895349«*~-7«I}}}, 

{ { {3 .59873102632408337849240477708541896715823639697079893369395125875359\, 
1646300032120916388521477367948758047563249007387312295838166775902'119.87019\ 
798485744 - 7.341425826672244025290452208828039638174003366431889118087226061\ 
8577533635738519569667353423559308075802429251757582821820532469'112.17982901\ 
200672**-8%I, -0.682640420459841741381475830868280300945528313450377607631819\ 
864024630092439744992410555852479814126584692145073551798962037468112257685'1\ 
19.63286922678103 - 1.9429385072705122651894124573598933480487781722284728083\ 
113564849801013357283897230761988179511755761633360941150089861890532197'112.\ 
08713628234241**-84I, 2.51499017070730538260112715395368804886338377018436236\ 
78630783762766518478992236249959420311648053386247697920662665985502107323610\ 
2927°120.12968458445205 - 6.1362239045128104369343859324700107345706032309476\ 
95099768483189336758488856869299556600430471709420220315035888177840429735352"\ 
111.51704949059241**-9%I, -0.736700077191917913091293913993714663954337027527\ 
09956266531539790061214003560251918955804812291974319687250125024357244625964\ 
6269699218'119.66405157253507 + 2.2848376374472428178855921512983581811924794\ 
07635986022670158663474659828002761244492670583419138979483375972975972218219\ 
8675111'112.15561620133268%*-8%1, 4.15588829186223335987810932121431364009233\ 
88816206751309988142239876090480003493177580873498067057590954740714586329571\ 
24400512467983255'119.90869735692621 + 2.014681782372131355303724384211417805\ 
55241332593295188967131518147464808445193234106222684374320087429293770595858\ 
84621845219646‘111.59423995086988+*-8*I} 

{-0 .6826405902244559987770897256558708066827660969250760663742217252975\, 
88572536812721554864133757175831277225461632995394193650034984150946'119.6328\ 
6932451264 + 1.65151391695025453208520434545510788116443728208738764122104893\ 
10308017277120573732816390292258224812463814388340269290660779739 ‘112.0165594\ 
5413678%*-8%1, 0.470652989496978990141815191945925561071435537900684474279821\ 
564433608876489362942592666777819657025710755960141118316660942994808239211'1\ 
19.83676553360267 + 3.0383206818146714206687012045892077933164445869248841537\ 
49681561158522671177800868431190374222009425622415731599148019144618383'111.6\ 
4669832189495**-9xI, -2.31502175202107857429674030694857604068438503607427405\ 
31540104814755517093871500427398015792253933047289005435905441467106881791572\ 
69133'120.14325205696666 - 0.215336918822913703411946480984365794609224059436\ 
45196745886450724687668506681945028535777373131367542860933480678666863283476\ 
892845819'119.11181547554887%1, 0.4397459720983722749928706555703604201548240\ 
79520332696673621391332543973268199115583591848093931170241519681076910460395\ 
561200494745035'119.84209388201512 + 0.00726444827025854459777388194257811678\ 
47235260281586836409657449225923880265286506142138268187811167764850817931710\ 
61886129931357333003'118.06009464736132*I, -0.6074077611875408969095958076538\ 
13597489160095267407626221513284156164689602578769591683865111434211489298391\ 
748203858596683953755981325'119.59365059457836 - 0.02658861662734120797442297\ 
35470479291289933992952211966396213881438360233352647195570366040582994060556\ 
24764305097272738205505363788554 '‘118.23486599985551+I}, 

{2.51499020509705026104911838605326873240318211712851603914365724954102\, 
0106819545788814324098773234835518871741472791072728304908350954464 '120.12968\ 
458369104 - 5.223513645477548811282310343012443840970870688286900329657276552\ 
079820310826376206878209884155404869899384248207619134349025836'111.447111019\ 
26123%*-9*I, 0.18634534147066401899848932126400460684132814276008553961250982\ 
4018064599238973187472363293351044444291236296431420659851023267400455344'119\ 
-68290616731474 + 0.215336914593825204888244918925376631504469427255942157276\ 
05460829815931084151858910625793200278288709693165937908385721988173036956079\ 
2°119.74570611327978*I, -0.12983790091183341729814018239611525992840510176750\ 
01574227924890198295954486290622410403987289646084057102971977611538378026504\ 
07497756'120.14766061120879 + 1.495547373504966651977207078295520737783738758\ 
90473149363923038535570718508128598066896312834637589750776856642642999668303\ 
74°110.20905930002472**-11l«I, 0.217459857624473477176147637634835823047384028\ 
05943936626209899457338695527450688204116249746191883345359028204696140610892\ 
4270384083235 '119.74227452287305 + 0.2071224307785136017014848517216931720628\ 
24619794505743685132343485448395488815847556813123634283853928958686719597491\ 
225334442874030927'119.72112255783394%1, 2.6169560624097014209917435045138252\ 
46178023239122591886634913790109344985090648042351568918484139176497475849572\ 
063795345696306723645276'120.12818167420026 + 4.78095432867469034488353516626\ 
94544801593387285992358737197775873463298304257019226324246781015835080289190\ 
40415812480937632931'111.38989983812382**-9*I}, 

{-0.7366999380808906557389415284370152262094122786968363809019697341620\, 
28020471256144188251307015979939118754400108572665073438644350671623'119.6640\ 
5149878013 - 1.49389887155630171771942636176496355510135939708912003918645753\ 
44041697870125204635907310280916066470407906303221092698597461009‘111.9710820\ 
646393%*-8%1, 0.4834767278309497118159285078014566936021118876132487371606331\ 
92267609642192913007065017571589322886522385483500453236704304416702714384 ‘11\ 
9.88100841640532 - 0.00726444683204811402189618445813951252743688840147275247\ 
20077717802515463392647351165354444045991539121005341143123887246830504986052\ 
29'118.05783539180763+1, -2.3339415984240168344233310816478988838157393272004\ 
92635189543580251649007924309171749959416502138417427084655750710107644762979\ 
854641687'120.14402862111852 - 0.20712242663908708493575824037877132270144747\ 
50632137870817263993851308588589385308461458311279303795372507602217236942689\ 
5564738631112'119.09216576213963%1, 0.462411258179664298958898623812773869361\ 
15024695962967200147809405066735131971911594877319395662882571019977582770763\ 
4622311705192067812'119.82055984320144 - 4.2642135353966526746398060304775719\ 
46515194233369289257659624735971728380145078888005845925374195894108509126006\ 
429908828694411'111.78537038838945**-9«I, -0.83087375198544098515778750532853\ 
05411081877435398548557546468361892120114285664075586400405170406735806046725\ 
35736104963049889666096123'119.71636835807287 + 0.026588615385383372936678137\ 
96725437499964278189088292450338811206869285003019207716891984710833299893858\ 


213 


214 B_ Result Notes 


3279804311783058345970278575153'118.22152904045414«1}, 
{4.15588870155505111554567594292658302611813483230774370838084627013935\ 
0001189950888552777830182631270173097067788866436688632860195106823'119.90869\ 
738003211 + 2.756669292049454904985029574643015911663676782089393094168263929\ 
7986732855099089458455049039171459762772055972007735517799758099'111.73041814\ 
023314**-8%1I, -0.830873746221550812622402754473901409404015530897982591862214\ 
707181017788920305121236523451459671972961191528555569834874841376901702138'1\ 
19.71636836118061 + 0.0265886002307871002685797927296967355489548406495281897\ 
08710693746670142443880921357912482066742361831197249473697975196222517217554\ 
944°118.22152879904166«I, 2.6169561218310104863744806710673021772379638564563\ 
62439594543118862040199183975312793223911117919811561390678282829178684291708\ 
514339793'120.12818167383291 + 6.22443788541078808472163417510680395785948116\ 
10551813721559745771906667226618115169127382129687228959353265377641637110694\ 
38716'111.50448537030049**-9*I, -0.607407812704482438974792628363674971765487\, 
90608108742406707094830236092824959020593433110731247714389679966506758245694\ 
760405844857361'119.59365062768106 - 0.02658860462495641954548424761179947909\ 
60769820447045881433629964311306636572568395639482636215896284834404418937888\ 
1952429996533085702'118.23486580007858%*1, 4.155887970911819587472263816160254\ 
98623074761683207003194826345752740739905801349641103098472445838682007241003\ 
0301884739779974155710117'119.90869733912373 + 2.7566691348823664349099711854\ 
04087907624140051048477076554438112241452300180001998298501451531078486316935\ 
7103091137209623088841'111.73041815091709«*-8«I}}, 

{ {-0.6826406080269450663446643148051831543405807126343449930134101849053\, 
82257486846192921024374755156348196678955446576368132789132514965846'119.6328\ 
6933276035 + 1.79511738400828366464873817842276759055829728558826471148911014\ 
39042132260811733497489918486609341674393005596763170859705467548'112.0527700\ 
6597952**-8%I, 0.470653003022510145387511826936899386111495095761388800643945\, 
742190463744778630106510075283816332152703811325993491920049275808241508674'1\ 
19.8367655954164 + 2.11931439013839752986109338979840882243204504977282229455\ 
3584581032711183240395663724007060698703821366815363689276016101088936'111.49\ 
026014834418%*-9%I, 0.1863453280198517592644415306767532632410122023398630135\ 
66621531312339635507201133358163858752972988195662819932402369046678639245850\ 
731°119.6829061455458 + 0.215336918685283169812973370618998626914228460808903\ 
99924548340446390399195569931007915130401929710466810949531758722523153928940\ 
6692702'119.74570613111088*I, 0.483476737336281902238366028722833835208782139\ 
05518539137861145416786175623427407635922901799126783556868811330309177315378\ 
3908814974777'119.88100837720604 - 0.0072644528886998708566347174994275336266\ 
76177868724666251906116900108374204269117937028478701489142453221480588447171\ 
667068571694298282'118.05783570615799«1, -0.830873657333116916278940552780816\ 
27443047173452345962373884220168120597621107292178958050011526269279917116434\ 
2886275624640843808041976'119.71636832088879 + 0.0265885896644373475256149257\ 
39399250514746249251952345317052717933394935973941307693989949916930511632704\ 
10223170973241466769451799069'118 .22152863262215«1}, 

{0.47065302658466882388639731223224023282139352865638004005790327230016\ 
4336440035698913804795396768463203364756881401876959397625693142343'119.83676\ 
559117276 - 7.386698737557102476110515434867473388504981588429415921363987437\ 
11863800480949828342919704109838400354612967286444995604377676 ‘112 .0325151222\ 
8333%*-94I, 0.052028027236033518655606896770048963062908237246802075353907160\ 
669039743791625899617145617962220012646328492497470328686752400400778049'119.\ 
34360539017969 - 1.9894399197419459475234326402380836823256929568716098739711\ 
05286604037450757627723120438143259846743732284958033752608938866553'111.9260\ 
9885942711%*-9«1, 0.166354147871781817572936494648549018752894758060828823500\ 
23211723142606042893032172861840804451083261433706357409159368390663774995715\ 
5°119.93143749830635 + 1.1136557701268628694420354146884364690664040465502100\ 
35473275433266037119079433848530849139201815933827262045495262925747336801'11\ 
1.7571548358692%*-9%1, 0.1056142241886523424177102430015664540089257182080175\, 
86618963453264981228570285913621907403812781587781180361398585904631706223028\ 
787181'119.66911680506203 + 5.41228401354543339747211341998503787968150358501\ 
79859649927146833759296635504858991720969323299509634862392966403376352114106\ 
4°111.37877497032002**-10*1, 0.4624112408346700883037739268495881613762654239\ 
76767708300349529324089431335871908671592646437883503656472854430268929760104\ 
528629287652'119.820559847598 + 6.0142273050144839602452451485615084991539318\ 
77224750469140181998139039215860311861336803301594478275311444117811088013903\ 
812663'111.93471130275685%~-9«I}, {-2.315021776974850019914557711667203118416\ 
55925033790639502034255920461188217338546956746275470645312547220755886401438\ 
7035358866553388036'120.14325205738093 - 0.2153369152489645094649768345747736\ 
03635630759282886515917674779161260763430396080745903180254916274472096323993\ 
69176200144910029874722'119.11181546407389%*I, 0.16635413659087282851063788659\ 
22832324446981788934482642130725198282786827093939057235938982384813428149449\ 
04279014407802742988438467282'119.93143749362474 + 1.095644914219607777144347\ 
55976919936726268441179373601047491193297576417159397871508236651797739473598\ 
703526202788478220099312'110.75007371620154**-10«1, 

-0.4447111552586324613592360405974524253763042756675330368991219278979\ 
85264896536135299791341836128842303620179157052109480249251339342408'120.1505\ 
0950255983 - 8.51541863332171758640972212038463240679224161833357295525896998\ 
7287510697317372522869881846799621247357014505205204534239588'110.432637482533\ 
**-1l«I, 0.168479846318544202228370592590003027049869171546179846189184425367\ 
078710258277408873863857750842483183367817696114558619003358586156416'119.958\ 
71004632026 - 2.4590447306046326260480845868073955243413114122284385245728167\ 
006169038315631624485226485996095760590427156888429307841386626'110.122928517\ 
35681**-11l*I, -2.333941584181926581846619063873942380052561964560786082872117\, 
421355240333267190209298968707917936905512501554448476097511953671436515163'1\ 
20.14402862089503 - 0.2071224300651092136202028959640168688757354542872863849\ 
15805683302336933689813058801317749377849603637945044859652364356882308530128\ 
48°119.09216577174993«1}, {0.439745964075582596009778819836950049953730220557\ 
46005085580728223729688632120359330425258868257644081744461510332595166601771\ 
2446061974'119.8420938574712 + 0.00726445087127184729453996073596440090478901\ 
63421471889106256535462567640641369450285073682283953315214079561250832773412\ 
06833790912289'118.06009478623851*I, 0.10561423252647572614472923162381065493\ 


B.1 


Example File of Results 


39644143624163509401429430828394985681625312750540719026685544066918193054602\ 
1957080584883082197'119.66911683909366 + 6.0402599860368110298648946414852930\ 
68657648467881202646527277966307178897459856558694587048054171893440658901564\ 
96206660688498'111.42645002363344**-10*I, 0.168479834794505765603890436281549\, 
18191890305441267012119653341707807996096276498095001530528207190360640373205\ 
3021919412557159131875441'119.95871004363076 - 9.2319682223801785635837011571\ 
49552106219265673428103819054341027637026333840157663656834546328392580169708\ 
49744747443117704311'111.69745641656014%*-10«I, 0.105614216601848839432458959\ 
13399933812274410789309290194652607456784915807316056894150976510622000467590\ 
57156432634084019017400349676'119.66911677985676 + 6.040259469602741679007654\ 
82293175347075823409413885745526363473903627024189436442541691654189638664437\ 
338636744724274710525412'111.42644999274833%*-10%1, 0.48347673563694736465506\, 
97746741292208824066513635388032821080957828751486920589692820387006187366146\ 
13357285198903424795135658042096684'119.88100839812425 - 

0 .0072644493686802613790798965459550823149650367622215766403138339691\ 
83753497380692910085373035328924141107806905677633048736359798590059'118.0578\ 
3551816349«1}, {-0.6074078943266081890456736733297803311419921757657000949003\ 
52503923154417331815812585580412910847026247291053009636262803882218189873207'\ 
119.59365069471396 - 0.026588590876922440652061219968274622360060391807256262\ 
94513589876504653849523230762032225905222074413653446314424047638112124019528\ 
5198'118.23486558419347*I, 0.462411266619871180689107350890032424290074425703\ 
84183383660672876286374418196569094806529590921156672462125515015228282117106\ 
86538138'119.82055989657688 - 3.151678412613061070438826380255856844825802834\ 
65073313091098771765979941820529432814081435688909254740519488737955002308616\ 
0167'111.65407338650968**-9*I, 0.21745987348053520547506647089656974221554870\, 
66833484860604317966274784927751339209001464851100424255492063168077226730346\ 
42364737129237'119.74227456301465 + 0.207122426190195737787901148241114491502\ 
46413445283548701511055939885322019150123521074169772195977288091300941090591\ 
7827076172910112146'119.7211225566882«1, 0.4397459421167715064690885034931191\ 
64252332745338675947670097881212822427231416458667241483681911814273939949751\ 
13952489313279181943809'119.84209380192215 + 0.007264454520439049542046444796\ 
17347720313277032097644555592012731612975854962477764797423441131464086733453\ 
4102128608772104449947411734'118.06009497053606«I, 

-0.7366998656946330929780316932716904660088453398771546655282333211384\ 
67459670433843891227784588624698674176886057461213489038638512313045'119.6640\ 
5145082275 - 1.63455505904628616948515449467511410973976005220632136503719302\ 
15621796037719720599370462619198219907899771609070472869353281564'112.0101604\ 
1426509**-8«I}}, { {2.51499012816899771369878791882043198736627320871860619658\ 
41383813730886145267791008140240780622368591975695858789658853495774378924558\ 
29°120.12968458372102 - 5.345755349485051423990478311675611839768701322710155\ 
224842813311185121220264655169351397230834384743288890510350637756570203828'1\ 
11.45715737824113%*-9%1, -2.3150217435718005686953687272728019503537692695974\, 
86183057281885773242140200312278800215691528773687380096547533537731221055006\ 
068447923'120.14325205676948 - 0.21533692247148281627337989595836259062111667\ 
45561748751059799785335457893340289272611896259130304047553447750747023414084\ 
89360156945355'119.11181548429526%*1, -0.1298378986028519861248923939799689319\ 
99226329191653009752983386301193202177463159406668600648218160338924940063371\ 
456525853195408317474'120.14766063639154 + 2.03987594854987560336042653029799\ 
01549750036246980846113590832522562633191856073431740316688762847172216732122\ 
8364924949607639'111.34386291585254%*-10%1, -2.333941608580828372291328208707\ 
16299940367331952349853607938888822850581039530492004143452393078729979401152\ 
493304648626337206802528398'120.14402862133586 - 0.20712242293141169276261117\ 
09568664323623527190102727779842516674973402103836352189077505303982113220933\ 
47053245448679172899216236508135'119.09216575269276«I1, 

2.61695614492321214730183462324195885872074724121310807130424629200195\ 
5642780574445571463472136731928995173661187494699573999855706714573'120.12818\ 
167446073 + 4.658712778078843321713174156736056155758946894185712321887838889\ 
118502885351211623829400276127700424373463569639954499100497098'111.378651165\ 
56182%*-9«I}, {0.186345315728302577311297170001677547862166861340016356204573\ 
155061165401971679286886372912341268145236996077337273342523503457627220409'1\ 
19.68290611216212 + 0.2153369217232480221620558784802525803827557281198083507\ 
17675091670146278948372062609131601647377274922032455278478985195666236739684\ 
653°119.74570613250074«1, 0.1663541469454957180323347534104298890270199477711\ 
44760940866615733217560451126836717369698830750599626179800074980661622602215\ 
003566402'119.93143748188088 + 1.13458013281417944573818177668598548171444811\ 
56019915236657801210637279779846249213804125576250067012563533403725109908477\ 
0352'110.76523902480292**-10*1, -0.444711153628559843595250114717962014389644\ 
51849667403853198006323262814276277889278443257521624165755475728037598761996\ 
8079050070536251'120.15050950256594 - 1.0521157557286149264436479030026162036\ 
44259213066963745262482428898163577292366916026461090932573384737701538288411\ 
41160532514'110.52449500493994%*-10%1, 0.168479833820322958975816921409205186\, 
40228984809913363804274594419769454585272431549538751724389180616304515433241\ 
7523137643594387899475'119.9587100541445 - 2.06969527779162394368696664255935\ 
22214681745375012443183965140653387029198881853004456400555331472749158057104\ 
592016282828874'110.04806853745104%*-11*I, 0.21745988999732343106564139053182\ 
23448496080665933295037397778153515973651378677048342686441750589015724676990\ 
12441092321036391291250379'119.74227459090967 + 0.207122423551720614411511645\ 
10086400235325227192255350398011958855419273995360174086130958662822132185684\ 
8513935564048349237173347272359'119.72112254606479«1}, 

{-0.1298379014399014191732386316910928859892781260895243999586807387042\ 
08464449343857315371629862219860801157726055809071291934706913593935'120.1476\ 
6063196038 + 5.21191108662192548117841787530295851124720802251490117698852958\ 
20990449581362149979062066015039304918748372648762626320239354'110.7512561427\ 
4603%*-1ll«*I, -0.4447111539405928952555992571390282997739620828440944502021222\ 
20570096136041060735286527846903628859210099138045156242848142649385744733'12\ 
0.15050950256582 - 4.31239509926153547803523522270318811076482355923075847355\ 
81965002722803673981297627606300809366604383944529847249722772429552'110.1371\ 
5002412609%*-11*I, -0.3052179354581322647582745248471220385991254062749213588\, 
27142842015173766556817005120492574170136064291774464971634227166426939797742\ 


215 


216 B_ Result Notes 


392°120.15051499783199 + 1.12285892309902758180559609183517615196832202270087\ 
474919586721879170003832908795759142155679200286091226498330926039940673096'1\ 
10.7162301420228**-10*1I, -0.4447111539405928658652124221566591148650909293760\ 
52539337661733164086164357872552960413530309116871830853057056523875259952811\ 
138592125'120.15050950256582 - 4.31239508144097068962392755042675527100098716\ 
35628828069245354785681701156984222055788708961234908731182340883512204808638\ 
21'110.1371500223314%*-11«*I, -0.129837901439901361728120357166441272651817150\ 
09984091794004059378587638934250701775460799382021540790935470710546948975277\ 
6041200545594'120.14766063196039 + 5.2119075811831079108135929145505046835225\ 
19927911378644821632062284256456865601286129232499145564143505727549047156829\ 
5250462°110.75125585064718%*-11l«I}, {0.21745988999732341136847434143136873622\ 
83831602212306146194929947409753722724010322658727840129719453233846969867685\ 
18672819232081553395'119.74227459090969 + 0.207122423551720564224603096374972\ 
28157855221942188149400707429538326615368297589353922650699287841563375596008\ 
928235819757022715816062'119.7211225460648*I, 0.16847983382032294018610431381\ 
29823202098575007560051782976604068276276028392149976970693513537546907617486\ 
58800191193645864139975818993'119.9587100541445 - 2.0696956852647082242148566\ 
45785302228328660399206040607439612716456453156484380657473330523276204550719\ 
1342085788424153036896'110.04806862295314%*-1l«I, 
-0.4447111536285598822859629178183685143559592103397249035326592737774\ 
68036346421448335336159528982366003848183828960334778763518049141957'120.1505\ 
0950256594 - 1.05211575433065527256529628167922581694938213675009891917702143\ 
148299057327908315356415093451148757376706905052563920016161992'110.524495004\ 
36288%*-10*1, 0.1663541469454956938913010806288043822558282151493934150173575\, 
96202503445569000635285236463030153304204666055731385737100615290876934115'11\ 
9.93143748188086 + 1.13458042385771186491981901446229379478455289131181737492\ 
110566248164497053196450043793838210660727856989803040582453624355583'110.765\ 
2391362085%*-10«I, 0.18634531572830253586484987610553346302642442060022751851\ 
59204239568577557128615068144338199347942710370263563139289590617967545324644\ 
96°119.68290611216213 + 0.215336921723248016635012617368414507927248712851467\ 
29106214169585162115425717066148516561337534637275976554061043171641971029587\ 
7869108'119.74570613250076«I}, {2.6169561449232119904145496725015966156173344\, 
41169548988379432305651054141902165088010016335419890985696370308216063533674\ 
130742589103094'120.12818167446073 + 4.65871295318981870099804144161098117482\ 
57459666395381082509049033932318800328831464494072504826284134683104402021281\ 
25695677293'111.378651181886**-9*1, -2.33394160858082841396519799138166515605\, 
40545345466793578512035521833806958915259574121806010950698148065955110742809\ 
6200584154219049919'120.14402862133585 - 0.2071224229314115952446887270156469\ 
34632248259835512807541857053599366921533928306004825761438499343201598540911\ 
771274733962451452798087'119.09216575269274«I1, 
-0.1298378986028519772521583639556144210937525539008908822670851807782\ 
22915648558801380954030120786892216145343839954814877774892995040093'120.1476\ 
6063639154 + 2.03987595903151182296201426919967766991638380961406492511028379\ 
918565316803728047859896701555900589756005016336727136931573816 ‘111.343862918\ 
08411**-10%I, -2.315021743571800577600548488921679810558628892461315637587659\, 
90418785219917183491278232768985060905887479256008888691564807734130961103'12\ 
0.1432520567695 - 0.215336922471482858219292299500439447143656013946587922117\ 
58955204837806524969706319378397146760389703203054617518304736119261662165284'\ 
119.11181548429528%I, 2.51499012816899796309564461959100722857914726209857461\ 
50896320139004106793872061183950029038489945610471506549889054242087148756029\ 
38827‘'120.129684583721 - 5.34575553825244944471940264906833441193115854773165\ 
3856046322819542544703677942329917281969967626007039238566061166182174796855"\ 
111.45715739357676%~-9«I}}, { {-0.73669986569463256174024422458282368231217426\ 
71971142396692445007684700675985008669361748688059308313989770476175438430759\ 
50538425111648'119.66405145082277 - 1.634555079368182371531036133378763587006\ 
89468291288335196905194995241308549008850588694754604524844897210877686251962\ 
33003280556'112.01016041966456**-8*1I, 0.4397459421167714901403322239957197891\ 
06027764844625394654975477286384026605300342161326183652620196404575105629309\ 
889818469965323942427'119.84209380192215 + 0.00726445452043917778260890622297\ 
22922432745006048073466922196273110641788017723886481859673462443050364418607\ 
05165839607454607084277566 ‘118. 06009497053608%1I, 0.21745987348053509874774143\ 
01977625015208887140425182940885885553564665054895238801425636902795547188542\ 
01131885696767812268064591599409'119.74227456301465 + 0.207122426190195718609\ 
46279799270243645617397972588660794072167304200886907226429379429405617493212\ 
1479805788078981084031264010464956102'119.7211225566882«I1, 
0.46241126661987100164391205195661813926272345017543854350602048581500\ 
6709207395882169619374186587493914190275814794172466072299894468963'119.82055\ 
989657687 - 3.151678252013033640067378431639314010587068151810059345812429673\ 
596232471500600013241138319626450281032360803939224557458012577'111.654073364\ 
37936%*-9*I, -0.6074078943266082325449418857498505160447273391722880522635712\ 
57269049779760644614951116206655672689986689205489724995726923486499123074'11\ 
9.59365069471396 - 0.02658859087692242118635088459486610811653940617145769470\ 
04437014169196305904107157951956374781494706717364617309653629939065050906392\ 
47°118.23486558419347x«I}, {0.483476735636947455548169556892269598104315034370\ 
33285626190358749879194708366451259753872952169113191220947978317011572870994\ 
4220751518'119.88100839812425 - 0.0072644493686803812010237796207538996312760\ 
20508363983401206926218029304453676479567848816594351088142721018874367360982\ 
56396185906744'118.05783551816349*I, 0.10561421660184880226407560426156189963\ 
39227912794218369114828389612028312066001975203253043743880654591483510499154\ 
40225933332653616709'119.66911677985676 + 6.040259781023470696762451465985786\ 
66671592503977522718167409429830799464730774784307260807530533758262766672315\ 
854710248114557'111.42645001513947**-10%1, 0.16847983479450571775239304350118\ 
05767312889554551947808038359693567669313974172825740545564565434667652955969\ 
79464869889774841351880165'119.95871004363076 - 9.231967858134509300160238517\ 
874659772220345264278130235337418617178730495730921006 9472854735596 9687489466\ 
072147148293642726768'111.69745639942512%*-10%I, 0.10561423252647559768656235\, 
50429577818185247768636210864302248164549624515703809128852583526070597610447\ 
67274025406629349158359987292227'119.66911683909365 + 6.040260038293767166857\ 
16176095466352517630406454033019386664442636293287112024493738881510548538548\ 
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669273334080706022613641449'111.42645002739069%*-10«I, 
0.43974596407558275145158871368483749022278593212330473541179870465917\ 
7744175257447918407095414903919584459251798386438927459666300052442'119.84209\ 
385747118 + 0.007264450871271841157267709648463283360513315109306767502310532\ 
2881197547792981616181265710741547849036607719339576936536490773402828'118.06\ 
00947862385*I}, {-2.333941584181926777792085968561292542973324462549924120422\ 
17527839851498024696849856249177816445752138930904127655140548611673947140313\ 
3°120.14402862089501 - 0.2071224300651092969840772913342873862161183572433779\ 
65569471776154313222013112453980752099965858290220823408315066933682488938074\ 
69608'119.09216577174992«1, 0.16847984631854410913719220961158196520053360919\ 
25104175983812475510057202332864978059963053823324498063795809155231943105498\ 
9096659449'119.95871004632026 - 2.4590474634518194547808740368804261210631820\ 
89646811649682441515499571852623617978873033166883084109725943579731596001582\ 
8944'110.12292900000756**-11*I, -0.444711155258632658484155921641083592546480\ 
17468667604147133854409376953638966212055255276150399034379845486197249119413\ 
8042227876226777'120.15050950255983 - 8.5154172788552670372760190621348660355\ 
85894455751228603904013345391197865815890631750255428829006805231829235996937\ 
3266816549'110 .43263741345393%*-11l«*I, 0.1663541365908726801762954606704315098\, 
40708053097302443067609210326678495850001279674049741576823982225356893902159\ 
012650992963822158848'119.93143749362473 + 1.09564532669014415569082201311014\ 
18514490237650044361745787854721380499050193394062020321034222664525258611084\ 
6962309592636056'110.7500738796976%*-10%1, -2.3150217769748503213567444203266\ 
19655942741865852009840215088316219610803366111021824472341218349914994006753\ 
69102227440007959793916071'120.14325205738093 - 0.215336915248964483784335283\ 
82577723067170366890844395235514656255238895508741438200997807231364970327994\ 
4755035556979513344487919302988'119.11181546407389«1}, 
{0.46241124083467006427868157218150897216016163390465424658174839146732\ 
8227361801728295735400663974995900292005595632167810573263725093905'119.82055\ 
9847598 + 6.01422723756147119297632178383765925885899432426075953381271215375\ 
6455556385992937087453468109923785888025879556983536165514152'111.934711297886\ 
**-9%T, 0.1056142241886521593854366535894391860779777515024912458803642177217\ 
83071826733754909280231458033867147232999640855002708997764873200161'119.6691\ 
1680506203 + 5.41228391055022289824198560777043755717510468098562819152306921\ 
964175321922495963896758593140706538160515021520067448119198586'111.378774962\ 
05545**-10«*1, 0.1663541478717816153287028875429583769356201978265344705286888\ 
36637461267658772885396697809532934851653660699585308525124482797979836982'11\ 
9.93143749830635 + 1.11365575613002965163208226385955526907438938818876431161\ 
5880633989042398798798946910420265821617997773058227813713292314464477'111.75\ 
715483041083%*-9%I, 0.0520280272360333440601118330438989351458642958421522314\ 
89103187064485161033157030423614065352335806852912120450335904380467888605612\ 
82°119.34360539017969 - 1.989439960118536561689721882488100770509012182910596\ 
99049025422858215849614607555876248311661958778535301223956098951238676846'11\ 
1.92609886824133%*-9%I, 0.470653026584668865887377871200512436862421106731415\ 
18377540759432078814255037008339949810622538919651865964703444596979358346337\ 
0334246'119.83676559117276 - 7.3866986945110385649323100902418228735459447923\ 
69160646476547915934082826302396459697634792989134760687389097028623575328683\ 
666'112.03251511975247**-9+T}, {-0.830873657333116366768307070672066115300532\ 
42706034891020359183052864164318443671790253561493920075733976328295824596303\ 
2348564101434762'119.71636832088876 + 0.0265885896644372029003458214423536333\ 
97096965836554258612544017364967249705691143355230229037145782898300572693105\ 
876371206534433102564'118.22152863262214%1, 0.4834767373362817624734811366750\ 
90555744916738096440406889308878206912874944404913024245241265835042479833578\ 
266150264697300133565655192'119.88100837720606 - 0.00726445288869981547473905\ 
78318258225060364557948249272324277945275445803563820029337546723263709992287\ 
98350983972393715857842465191873'118.057835706158«I, 0.1863453280198516591139\ 
57853740138329687724687911408907209947187333685119613402155048859177907609257\ 
696584629338976849973754529931409729'119.68290614554579 + 
0.2153369186852831571027078464763205006028381570081891035819301584688\ 
14465893378724517988796165456846582673823035492788264857808860132748'119.7457\ 
0613111086%*1I, 0.4706530030225099247804226966381072133267740472598022494527790\ 
00152238336162943549417663815923370221337230894992849557574009419956649279'11\ 
9.83676559541637 + 2.11931447108521330136516224733730008745154987456239492296\ 
2629714111364779746334558003576174647538361662264960526853170511583087'111.49\ 
026016493197%*-9%1, -0.682640608026945095259031556775787896807290279511471561\, 
29222536724966825737522697132954275879629805206130334396749831833970890933669\ 
6712'119.63286933276035 + 1.7951173898533151227754167954674394143310452924103\ 
51744032565844787480497064375615504025471156694719583713214397130428295816846\ 
3°112.05277006739362*~-8*I}}, { {4.1558879709118197602128850713947397486293851\ 
36701664781340314440321808906264973205470000108345418893424967973117269451568\ 
54157442225723'119.9086973391237 + 2.7566691342419740605858384472983031796832\ 
79902890436110466916493501397075904242443094952664386267131857285427996257045\ 
3025371676'111.73041815081619%«*-8%1I, -0.6074078127044823439640290146534603092\ 
90403514363196125286424006767499765357996567556906699442690780800745154597174\ 
224820754332838248397'119.59365062768104 - 0.02658860462495640459394201719651\ 
23704252800771175920625704453932316485408235669204515216923238531822427202244\ 
03026456479803179061378519'118.23486580007857%1, 2.61695612183101011462318132\ 
07101968063218096241564187942394461182250614525749856176619186333859239101030\ 
8065948239795933528904156461323'120.1281816738329 + 6.22443788092129242231532\ 
94948780798630960922207628966775455462063914696763012968535888927064409520306\ 
74731827096550387248240037'111.50448536998726**-9*I, 
-0.8308737462215508781678165244863672129465498336255275320275527667152\ 
01516786614038011246738968051458398758452746382876730397463470193157'119.7163\ 
6836118061 + 0.02658860023078727844856397841246117884367043997976557226348595\ 
2680749784147860748301555186936457680801372992309959306533968562157878525'118\ 
+22152879904166«1, 4.15588870155505170328846435131467531584663089729158818452\ 
24340401544402802598708823049850959721940823632942674851203827116755089361571\ 
22°119.90869738003211 + 2.756669288688439084186806404513658012331804160762172\ 
3345064189714658642197774478619893656886674582291902405058205719578751898959*\ 
111.73041813970363%*-8«I}, {-0.8308737519854411014651190111308889767635037302\ 
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54737119683319587959494091722320348403732753279010094788316768963886901947548\ 
781024424798'119.71636835807288 + 0.02658861538538325936254689199943247734114\ 
15616003239301787593712595492510098619678556751509553612273007619212190380498\ 
68044926187301529'118.22152904045416+1, 0.46241125817966433197563490829347977\ 
31330240285426550689208332462340798213452254129663428729382096307468558660592\ 
42856310689194127830201'119.82055984320144 - 4.264213543290356454005826874886\ 
93785882628524239055146337309880932445899518210612549892902694345232523560798\ 
3060620342433466048'111.7853703891934%*-94I, -2.33394159842401703058927915306\ 
20781684354759966691465341463699439026313086371602835983354143470293833077856\ 
58127799297238253275927442045'120.14402862111852 - 0.207122426639087057674948\ 
37162216789364648239181334152468354967557798903749062558273550707040230500557\ 
8539654168374940833071745734547703 ‘119. 09216576213962%1 

0 .48347672783094970473136901807187288451013635670261468660515495596266\, 
2904210999126324744661564372578244208798767834301908065516415212631'119.88100\ 
841640532 - 0.007264446832048237812318712107679612483282672018412585168342031\ 
645518581973160258486289821741765678148980011351172672328717155414497469'118.\ 
05783539180764%1, -0.73669993808089065289807687186653200250196118301826540247\ 
27108306677816519265062448252244736859771822804098347086091847998298138454162\ 
87°119.66405149878013 - 1.493898888718156148399101753716070532537429806577680\ 
9994928515952164069674137958535392422792082378217857172154556280279478858277° \ 
111.97108206962847**-8%I}, {2.61695606240970080948046157970930204118278552615\ 
66462386085781539702317433759996098950078937413497529798520131576493437866428\ 
34383237258'120.12818167420025 + 4.780954476353624504315944456344353007539610\ 
74833754596517682476609783328517509230857571616110076133469862115032326952159\ 
5877685 ‘111.38989985153876**-941, 0.21745985762447324937122715647907255599523\ 
42049753481672759930255983903548960752238486264546760005455968628037013418147\ 
52739473720965256‘119.74227452287303 + 0.207122430778513595748888401840116187\ 
07461288743823522703341485415471007588844229459472955081172039612112305718772\ 
870796468670112717659'119.72112255783392*1, -0.129837900911833733442336205422\ 
01265055443170626060880887078422359313691062964807269214178140168005728067047\ 
9795071376696433151477494821'120.14766061120879 + 1.4955482453427111836062250\ 
30580242406862723767583269601476196689003437020464458729825533843277174951164\ 
4062320794494324651242'110.20905955319901x*-11*I, 0.1863453414706638045794094\ 
31019767722109312244734085183833778324207850758744462377921131204980572251397\ 
209100382781473454404146777793975'119.68290616731475 + 0.21533691459382508493\ 
27349547294525453535289845302422477076387904744494548266597635786849665892797\ 
81063736473542554210161378047905497543'119.7457061132798*I 

2.51499020509704961120441306452309497001546784402461118030392278153523\, 
7048101703895601758162655716442721969006708170192485697649582794962'120.12968\ 
458369103 - 5.223513408670544403470587550895532763699263677241961363268741708\ 
731874490202971248606033294464308837323450982788193948923599763'111.447110999\ 
57257«*-9*I}, {-0.60740776118754102088433567714899347432951203172730092770595\ 
236619207127243839378595474980569751019823283899815672567600966762680173385'1\ 
19.59365059457835 - 0.0265886166273413671349335628022792311926178127456930577\ 
23511261056913103126934071280850066835763705878256683386004246742966382845447\ 
12°118.23486599985551+1I, 0.43974597209837194754146336142218243205745955937770\ 
42144488557315610199228237817269934017897208838704811982576941137375865913818\ 
30067411'119.8420938820151 + 0.0072644482702585781131313476406345776953410633\ 
92690102377733928929199893743613326561729887543419116601681916679372948084616\ 
60882302823'118.06009464736131*I, -2.3150217520210787563968837964121620604165\ 
96248957995832729189654302679480471693905323066595684042090051312514153453180\ 
048713785773710649'120.14325205696667 - 0.21533691882291372601954881296207058\ 
76579084148540684769217520729016894762863967622555548129067705806229549939261\ 
47170116285582587928282'119.11181547554888%1I, 0.47065298949697873375911471653\ 
73857462645321951325717930087831434355483352465523485534361443072893368592314\ 
47672629691628301595483077422'119.83676553360269 + 3.038320600174082543934449\ 
42433324465673240564131152750407582005281920300461808254436997568595444420319\ 
6696673092252504968293175'111.64669831022535**-94I, 

-0.6826405902244560085110774427224581432381883205305317214831822384914\ 
5097151148071165804316570771737086022825774336931190866194994437744'119.63286\ 
932451264 + 1.651513893139569391308653703875929803168278501133312021681567181\ 
4707790528410999246988506931800076241728351979741064275803942409'112.01655944\ 
787535**-8%I}, {4.15588829186223317311177107602930116669036849158292651345352\ 
076063171865867574788346184311956897000511420389950913354472091087995950569'1\ 
19.90869735692618 + 2.0146818007409594475455903936731905104255534293061201252\ 
798216587413529215456351558357574106759449893773026277259274824752480248'111.\ 
59423995482955x*-841, -0.7367000771919183848873284990044699336981842449089172\ 
34247710211169999003082540256102773138794004866173975165472861172422364325957\ 
933524°119.66405157253507 + 2.28483762920437976532672643964875863283541836662\ 
66499772131132612365977759386264809551704372394737454651346895779558960798381\ 
378°112.15561619976592%*-8%1, 2.514990170707305461358853053286661912277391048\ 
49695340524597329283364249949695230091152520316718112608525118303741038183570\ 
1271285167207'120.12968458445206 - 6.1362239478789660219064570691821961996197\ 
44390285449669665638202110820103618450606470366963824133214342776940656973916\ 
138110357'111.5170494936617**-9%I, -0.682640420459842322297718817234718709054\ 
97899319625551104804198684957503954650101413055493254639839592916962848847777\ 
2571910717120301102'119.63286922678103 - 1.9429384960363651943644691073589767\ 
00019917240938211973135338782354215786072931817715662911616448732714841642080\ 
9741043960355024'112.0871362798313%**-8*I, 3.598731026324083744789969454489217\ 
72317592179094966857646514486067191044791286572215461126515712526065348906975\ 
6662958673929013510332022'119.87019798485746 - 7.3414258201553562130204190142\ 
18644858587240884081684621897649376143332137766490410993912691822291045808345\ 
6860074557082909519533 '112.17982901162122%*-8+1}}}}}}} 
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